Excelセルの結合を調べる

  For Each c In Cells(1, 1).MergeArea
    If c.Address(0, 0) = "B2" Then
      MsgBox "結合されています"
    End If
  Next c