HOME > 即効テクニック > Excel VBA > セル操作関連のテクニック > 選択されているセルの連結と選択されているセル範囲の同列方向のみの連結

即効テクニック

セル操作関連のテクニック

選択されているセルの連結と選択されているセル範囲の同列方向のみの連結

(Excel 97/2000)
セルを選択して次のマクロを実行すると、選択されているセル範囲が連結されます。

Sub Sample1()
    Selection.Merge
End Sub

次のマクロは、選択されているセル範囲を、同じ列方向のみで連結させます。
セルA1〜セルC3までが選択されていたとしたら、A1〜A3、B1〜B3、C1〜C3で連結されます。
Sub Sample2()
    Dim a As Long
    Dim b As Long
    Dim c As Long
    Dim d As Long
    Dim i As Long

    a = Selection.Row
    b = Selection.Rows.Count
    c = Selection.Column
    d = Selection.Columns.Count

    For i = c To c + d - 1
        Range(Cells(a, i), Cells(a + b - 1, i)).Merge
    Next i

End Sub