VBA를 활용한 엑셀 데이터 병합 방법
엑셀을 사용하면서 여러 개의 데이터를 병합해야 하는 경우가 생길 때가 있습니다. 이때 VBA를 활용하면 더욱 편리하게 데이터를 병합할 수 있습니다.
본 포스팅에서는 VBA를 사용한 엑셀 데이터 병합 방법을 알아보겠습니다.
1. 데이터 병합을 위한 변수 선언하기
VBA를 사용하여 엑셀 데이터를 병합할 때는 먼저 변수를 선언해야 합니다. 변수를 선언하는 것은 데이터를 저장할 메모리 공간을 할당하는 것입니다. 아래는 변수를 선언하는 방법입니다.
Dim 대상시트 As Worksheet, 원본시트 As Worksheet
Dim 대상마지막행 As Long, 원본마지막행 As Long
위의 코드에서 대상시트와 원본시트는 각각 병합될 대상과 병합할 데이터가 저장된 시트를 의미합니다. 대상마지막행과 원본마지막행은 각각 병합될 대상 시트와 병합할 데이터가 저장된 시트의 마지막 행 번호를 저장할 변수입니다.
2. 병합될 대상 시트 선택하기
VBA에서 시트를 선택하기 위해서는 Worksheets 객체를 사용합니다. 아래의 코드는 "Sheet1"이라는 이름을 가진 시트를 선택하는 코드입니다.
Dim 타겟시트 As Worksheet
Set 타겟시트 = ThisWorkbook.Worksheets("Sheet1")
위의 코드에서 타겟시트는 "Sheet1"이라는 이름의 시트를 의미합니다. ThisWorkbook 객체는 현재 열려있는 엑셀 파일을 의미합니다.
3. 병합할 데이터가 저장된 시트 선택하기
병합할 데이터가 저장된 시트를 선택하는 방법은 Worksheets 객체를 사용하는 방법과 With 구문을 사용하는 방법 두 가지가 있습니다. 먼저 Worksheets 객체를 사용하는 방법을 알아보겠습니다.
Dim 소스시트 As Worksheet
Set 소스시트 = ThisWorkbook.Worksheets("Sheet2")
위의 코드에서 소스시트는 "Sheet2"라는 이름을 가진 시트를 의미합니다. 이제부터 데이터를 저장할 범위를 지정해야 합니다.
4. 데이터 저장 범위 지정하기
데이터를 저장하기 위해서는 저장할 범위를 지정해야 합니다. 이때 End 메소드와 xlUp 상수를 사용하면 시트에서 마지막 행을 찾을 수 있습니다. 아래의 코드는 "Sheet1"이라는 이름의 시트에서 마지막 행 번호를 찾는 코드입니다.
대상마지막행 = 대상시트.Cells(대상시트.Rows.Count, 1).End(xlUp).Row
위의 코드에서 대상시트는 병합될 대상이 저장된 시트를 의미하며, Rows.Count를 사용하면 시트의 전체 행 개수를 확인할 수 있습니다. End(xlUp) 메소드를 사용하면 셀에서 위쪽으로 빈 셀이 아닌 셀을 찾아갈 수 있습니다. 그리고 Row 속성을 사용하면 해당 셀의 행 번호를 확인할 수 있습니다. 따라서 위의 코드에서는 "Sheet1"이라는 이름의 시트에서 가장 아래쪽에 있는 빈 셀 위쪽에 있는 셀의 행 번호를 찾아내는 것입니다.
이제 병합할 데이터가 저장된 시트에서 데이터가 시작되는 행 번호를 찾아야 합니다. 아래의 코드는 "Sheet2"라는 이름의 시트에서 데이터가 시작되는 행 번호를 찾는 코드입니다.
원본마지막행 = 원본시트.Cells(원본시트.Rows.Count, 1).End(xlUp).Row
위의 코드에서 원본시트는 병합할 데이터가 저장된 시트를 의미합니다.
5. 데이터 병합하기
데이터를 병합할 때는 반복문을 사용해야 합니다. For 구문을 사용하여 데이터를 복사하고 붙여넣기 하면 됩니다.
For i = 2 To 원본마지막행
대상시트.Range("A" & 대상마지막행 + 1).Value = 원본시트.Range("A" & i).Value
대상시트.Range("B" & 대상마지막행 + 1).Value = 원본시트.Range("B" & i).Value
대상시트.Range("C" & 대상마지막행 + 1).Value = 원본시트.Range("C" & i).Value
대상마지막행 = 대상마지막행 + 1
Next i
위의 코드에서 i는 For 구문에서 반복 변수를 나타내며, 2부터 원본마지막행까지 반복합니다. 대상시트.Range은 복사한 데이터를 저장할 범위를 의미하며, 원본시트.Range은 병합할 데이터가 저장된 범위를 의미합니다. 이제 VBA를 실행해보겠습니다.
6. VBA 실행하기
VBA를 실행하려면 Alt + F8을 눌러서 매크로 창을 연 다음 매크로 이름을 작성하고, "실행" 버튼을 누르면 VBA가 실행됩니다.
7. 엑셀 데이터 병합 결과 확인하기
위의 코드를 실행하면 복사한 데이터가 병합될 대상 시트에 추가됩니다. 이때 데이터가 정상적으로 병합되었는지 확인해보아야 합니다.
8. 마치며
본 포스팅에서는 VBA를 사용한 엑셀 데이터 병합 방법을 알아보았습니다. VBA는 엑셀을 사용하는 데이터 분석가들에게 높은 효율성을 제공합니다. 따라서 데이터 분석에 필요한 VBA 문법과 기초적인 함수를 숙지하는 것은 매우 중요합니다.
포스팅이 도움이 되셨다면 구독, 공감, 댓글 부탁드려요!
행복한 하루 되세요!
'■ 칼퇴를 위한 VBA : 사례 > - VBA for 엑셀' 카테고리의 다른 글
VBA 스크립트를 활용한 엑셀 데이터 유효성 검증 해제 방법 (0) | 2023.06.25 |
---|---|
엑셀 VBA를 사용하여 셀 주석 추가 및 제거하는 방법 (0) | 2023.06.25 |
엑셀 VBA로 데이터 정규화 자동화하기 (0) | 2023.06.25 |
VBA 코드를 활용한 엑셀 파일 자동 저장 방법 (0) | 2023.06.25 |
엑셀 VBA를 이용한 워크시트 보이기 및 숨기기 방법 (0) | 2023.06.25 |