달달구리 다이어리

업무를 하다보면 엑셀을 사용합니다

엑셀의 형식이 같은 엑셀시트가 일별 /주별 /월별로 나눠져있으면 한번에 취합하기 편리한 소스입니다

엑셀 맨앞시트 잡고 

alt + f11  누르면

Microsoft Visual Basic for Applications 팝업창이 뜹니다

삽입 - 모듈 클릭 후 팝업창이 뜨면 아래 코드를 넣어주세요

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 누르고  Combine 실행

맨앞 combined시트로 취합완성!

오늘도 업무생산성 향상 화이팅입니다!