엑셀 시트별 내용 합치기
페이지 정보
작성자 관리자 작성일 21-09-10 10:29 조회 5,199 댓글 0본문
VBA코드
--------------------------
Sub sheetMerge()
Dim i As Integer
Dim sht As Worksheet
Dim rng As Range
Set sht = Sheets(1)
For i = 2 To Sheets.Count
Set rng = sht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets(i).UsedRange.Copy rng
Next i
End Sub
--------------------------
매크로 실행
댓글목록 0
등록된 댓글이 없습니다.