【VBA】結合セルの値を取り出す方法

手作業で結合セルからデータを抽出するのは時間がかかるだけでなく、ミスも増えます。この記事では、VBAを使って結合セルの値を取り出す方法をご紹介し、業務効率化に役立てましょう。

サンプルコード

VBA

Option Explicit
Sub GetCombinedCellValues()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 結合セルの範囲を取得する
    Dim combinedRange As Range
    Set combinedRange = ws.Range("A1:A5")
    
    ' 取得した値を表示
    MsgBox "結合セルの値は: " & combinedRange.Cells(1, 1).Value
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。