For Each c In Cells(1, 1).MergeArea
If c.Address(0, 0) = "B2" Then
MsgBox "結合されています"
End If
Next c
Excelセルの結合を調べる
VBA Excel
VBA Excel For Each c In Cells(1, 1).MergeArea
If c.Address(0, 0) = "B2" Then
MsgBox "結合されています"
End If
Next c
Comments