최춘원 님이 쓰신 글 :
: ole로 엑셀파일을 로드했을시에 셀병합한 셀들의 정보를 가지고 올수 있는 방법이 있나요?
: 여기저기서 조사해봣는데 잘 모르겟네요..^^;;
: 혹시 아시는 분 있으시면 조언좀 해주세요.

병합된 셀들을 모은 컬렉션 등은 없는 것 같더군요.

Worksheet 개체의 UsedRange 속성으로 각 워크시트의 사용 영역을 알아낸 다음
그 영역 내의 Cell 별로 MergeCells 속성을 검사하여 값이 True이면 해당 셀은 병합된 셀이며 해당 셀과 함께 병합된 셀들은 MergeArea 속성 또는 Address 메서드로 알아냅니다.


Sub macro1()
Dim ma As Range
Dim Sheet2 As Worksheet
Dim Sheet3 As Worksheet
Set Sheet2 = Worksheets("Sheet2")
Set Sheet3 = Worksheets("Sheet3")
Set usedrnge = Sheet2.UsedRange
Sheet3.Cells(1, 1).Value = usedrnge.Address
For r = 1 To usedrnge.Rows(usedrnge.Rows.Count).Row
For c = 1 To usedrnge.Columns(usedrnge.Columns.Count).Column
  If Sheet2.Cells(r, c).MergeCells = True Then
   Set ma = Sheet2.Cells(r, c).MergeArea
   Sheet3.Cells(r, c).Value = Chr(Asc("A") - 1 + ma.Columns.Column) & ma.Rows.Row & " ~ " & Chr(Asc("A") - 1 + ma.Columns(ma.Columns.Count).Column) & ma.Rows(ma.Rows.Count).Row
  End If
Next c
Next r
Sheet3.Activate
End Sub