반응형 여러 시트데이터 하나로 모으기1 [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 - [칼퇴를 도와주.. 2020. 6. 28. 이전 1 다음 반응형
