[엑셀함수] 엑셀 시트별 자료 conbine 합치기

[엑셀함수]  엑셀 시트별 자료 conbine 합치기 

동일한 시트형식으로 사용시 컨바인 하기 좋은 방법임

- 첫번째 시트에서 ALT + F11를 누르면 Microsoft Visual Basic창이 열림

- 모듈 클릭

- 아래 소스 복사 붙여넣기

Sub Combine()
Dim J 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 J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub

 

- F5 클릭