엑셀시트합치기 Sub SheetUnit() Dim i As Integer Dim ShtA As Worksheet Dim rngB As RangeSet 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 입력후 도형 삽입, 코드 링크 카테고리 없음 2018.08.18