VBA セルの操作 結合セルを調べる

結合セルを調べる

構文

Object.Merge(Across)

または

Object.MergeCells = True

Sub test6()

   ’ セルA2:C4の結合を解除

    Dim i As Long, buf As String
    For i = 3 To 20
         ’  D列のセルが結合セルであれば
        If Cells(i, 4).MergeCells Then
         ’  結合セルを解除する
            Cells(i, 4).UnMerge
        End If
        
        ’ ​​​​​​​ D列セルが空欄の場合（結合解除後は空欄になる為）
        If Cells(i, 4) = "" Then
         ’ ​​​​​​​ 一行上のデータをコピーする
            Cells(i, 4) = Cells(i, 4).Offset(-1)
        End If

    Next i

End Sub 

実行結果
 

​​​​​​​

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る