티스토리 뷰

분류없음

엑셀시트합치기

위어조자(謂語助者) 2018.08.18 13:20


Sub SheetUnit()
Dim i As Integer
Dim ShtA As Worksheet
Dim rngB As Range

Set ShtA = Sheets(1)
For i = 2 To Sheets.Count
Set rngB = ShtA.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets(i).UsedRange.Copy rngB
Next i
End Sub


입력후 도형 삽입, 코드 링크

댓글
댓글쓰기 폼