[Visual Basic] 비주얼베이직 스크립트 (VBScript), 엑셀 셀 병합하기, 병합 해제 하기

엑셀을 생성하고 Cell에 값을 쓰는것은 아래를 참고.

https://ansan-survivor.tistory.com/1897

[Visual Basic] 비주얼베이직 스크립트 (VBScript), 엑셀 생성하기

 

위 포스팅에서 생성한 엑셀을 아래와 같이 병합하는 예제 코드

 

병합할 때 사용하는 함수는 아래와 같다.

맨 처음 Workbook object를 불러와서 접근해야 한다.

A1:A2는 드레그를 뜻함. 즉, A1부터 A2까지 드레그해서 Merge(병합) 해라.

    <Workbook Object>.Range("A1:A2").Merge

 

예제 코드)

' 엑셀 obj를 생성
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Sheets(1)

' 병합하기
objWorksheet.Range("A1:A2").Merge
objWorksheet.Range("B1:C1").Merge


' 해더 부분, 첫번째 줄
objWorksheet.Cells(1,1).Value = "Name"
objWorksheet.Cells(1,2).Value = "Age"

' 2번째 줄
objWorksheet.Cells(2,1).Value = "John"
objWorksheet.Cells(2,2).Value = "30"

' 3번째 줄
objWorksheet.Cells(3,1).Value = "Jane"
objWorksheet.Cells(3,2).Value = "25"

' 저장할 경로 지정, 위 데이터를 쓰고 저장됨.
objWorkbook.SaveAs "C:\_workspace\example.xlsx"

' 엑셀 obj를 종료함
objExcel.Quit

 

(결과) 아래 줄을 보면 어떻게 병합하는지 알 수 있다.

 

반응형

 

그러면 병합된 저 Cell을 다시 해제하여 각각의 Cell으로 돌리는 방법.

Merge를 UnMerge로 함수를 사용하면 된다.

위 Merge된 Excel파일에 다시 아래와 같이 코드를 돌리면,

아래와 같이 원래대로 분리 된다.