[VBA 코드] 여러 시트 데이터 하나의 시트로 모으기

"여러 시트 데이터 하나의 시트로 모으기" VBA 코드 입니다.

 

Sub Combine()
Dim I As Long
Dim xRg As Range
On Error Resume Next
Worksheets.Add Sheets(1)
ActiveSheet.Name = "Combined"
For I = 2 To Sheets.Count
Set xRg = Sheets(1).UsedRange
If I > 2 Then
Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
End If
Sheets(I).Activate
ActiveSheet.UsedRange.Copy xRg
Next
End Sub

 

VBA 코드 실행 하는 법은 아래 포스팅 참고 하세요!

2020/06/28 - [칼퇴를 도와주는 엑셀 꿀팁] - 엑셀 VBA 코드 작성 및 실행 하기

엑셀 VBA 코드 작성 및 실행 하기