엑셀_시트합치기 (자주 쓰는 데 자꾸 까먹어서 정리)

alt+f11

 

모듈 창에서 '삽입' 선택 

Sub combine() Dim test As Integer On Error Resume Next Sheets(1).Select Worksheets.Add Sheets(1).Name = "combined" Sheets(2).Activate Range("a1").EntireRow.Select Selection.Copy Destination:=Sheets(1).Range("a1") For test = 2 To Sheets.Count Sheets(test).Activate Range("a1").Select Selection.CurrentRegion.Select Selection.offerset(1, 0).Resize(Selection.Rows.cout - 1).Select Selection.Copy Destination:=Sheets(1).Range("a65536").End(xlUp)(2) Next End Sub