EXCEL VBA セルの結合・結合セルの解除・結合セルの参照　（MergeCells・MergeArea）

EXCEL VBA セルの結合・結合セルの解除・結合セルの参照　（MergeCells・MergeArea）

指定したセルの結合しているか調べる方法 (MergeCells)

Sub MergeCells01()

    Dim ChackCell As Boolean 'false と　Trueを取り扱うBoolean型を設定
    Dim I As Integer
        
    For I = 1 To 6 '１～６行を繰り返す（A１～A6）
        
        ChackCell = Range("A" & I).MergeCells '指定したセルの状況（結合しているか？）
        Range("C" & I) = "A" & I & "のセルは、" & ChackCell   '指定したセルの結果を列に表示　（Trueは、結合・Falseは、解除）
    
    Next I
    
End Sub

指定したセルの結合とセルの結合解除の方法 (MergeCells)

Sub MergeCell02()

   Application.DisplayAlerts = False 'セルを結合する時に警告を無視します。

    
            Range("B2:D2").MergeCells = True 'セル結合
            Range("B2") = "第１四半期"
            Range("B2").HorizontalAlignment = xlCenter  '中央揃え
        MsgBox "セルの結合"
        
            Range("B2:D2").MergeCells = False 'セルの解除
            Range("B2") = "4月"
            Range("C2") = "5月"
            Range("D2") = "6月"
         MsgBox "セル結合の解除"
        
    
    Application.DisplayAlerts = True '警告を解除します。
    
End Sub

結合しているセルを参照・入力・クリアーする方法（MergeCells）

Sub MergeArea01()

    Dim WestFloor As String
    Dim I As Integer
    
    For I = 3 To 16 Step 2 '3行名から16行目まで2行毎に繰り返します。
    
        WestFloor = Range("E" & I).MergeArea.Address  'E列（西側）に係わるセル結合したアドレスを返します。
        
        Range("E" & I).MergeArea.Interior.ColorIndex = 3  'E列（西側）に係わるセル結合したセルの背景色を赤にします。
        
        Cells(I, "I") = WestFloor  'I列にセル結合したアドレス範囲（E列：西側）を記入します。
    
    Next I
    
End Sub

Sub MergeArea02()

    Range("G3").MergeArea.ClearContents    'D3～G4「屋上」セルをクリアします。
    Range("E9").MergeArea.ClearContents  'D9～G10「3F」セルをクリアします。

    MsgBox "屋上と３Fをクリアしました。"
    
    Range("F4").MergeArea = "屋上動物園"
    Range("D10").MergeArea = "本屋"
    
    MsgBox "屋上⇒屋上動物園・3F　⇒本屋を記入しました。"
    

End Sub