반응형
"여러 시트 데이터 하나의 시트로 모으기" 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 코드 작성 및 실행 하기
1. 엑셀 실행 후 Alt - F11 눌러 주세요! 그러면 MS VBA Applications 가 실행 됩니다. 여기에서 삽입 - 모듈을 선택 합니다. 그럼 다음과 같이 코드 입력 창이 나옵니다. 그럼 여기에 코드를 붙여 넣으시면
klovek.tistory.com
반응형
'회사 생활 > 칼퇴를 도와주는 엑셀 꿀팁' 카테고리의 다른 글
| MS워드 특정 문장 변환하여 다른파일로 저장 (0) | 2020.06.28 |
|---|---|
| [VBA 코드] 항목별로 시트 분리 하기 (0) | 2020.06.28 |
| [VBA 코드] 시트별로 파일 저장 하기 (0) | 2020.06.28 |
| 월이 바뀌면 자동으로 구분선 그리기 (0) | 2020.06.28 |
| 특정 종류의 문자만 선택적으로 추출 하기 (4) | 2020.06.28 |
