Excel VBA 結合されたセルのデータの取得と設定（代入）方法

結合されたセルのデータの取得と設定方法

やりたい事

結合されたセルのデータを取得したり設定方法を解説します。

サンプルコード

結合されたセルのデータを取得してすべての文字列を結合するサンプルコードです。

Sub getMergeCells()
    Dim i As Long
    Dim text As String: text = ""
    
    For i = 1 To 5
        text = text & Cells(i, 1).MergeArea(1).Value
    Next i
    
    MsgBox text
    
End Sub

「MergeArea」のRangeオブジェクトの1番目に文字列が格納されているので(1)で指定してます。

結合されたセルにデータを代入するサンプルコードです。

Sub setMergeCells()
    Dim i As Long
    For i = 1 To 5
        Cells(i, 2).MergeArea(1) = i
    Next i
    
End Sub

参考資料

Docs