セルを縦方向に結合するExcelマクロ

やりたいこと

選択範囲のセルを縦方向に結合する。

使い方

1. セルを選択
   
2. マクロ実行
3. セルが縦方向に結合される
   

コード

Module1

Option Explicit

Public Sub verticalMerge()
    
    Dim rng As Range
    Dim i As Long
    
    '選択範囲がセルでない時は動作させない
    If TypeName(Selection) <> "Range" Then Exit Sub
    
    Set rng = Selection
    
    '複数領域を選択した時は動作させない
    If rng.Areas.Count > 1 Then Exit Sub
    
    '縦方向にマージする
    With rng
        For i = 1 To .Columns.Count
            Range(.Item(1, i), .Item(.Rows.Count, i)).Merge
        Next
    End With
    
    Set rng = Nothing
    
End Sub

検討

今回は、シンプル化するために一つのエリアを選択した時のみ動作する仕様にした。
複数のエリアを選択した場合は、各エリアごとに行数と列数を調べて、同じように処理すれば対応可能。