카테고리 없음

엑셀시트합치기

홍성필 2018. 8. 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


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

반응형