アクティブセルを基点に2列2行のセル範囲を結合するには?

Question 72.10 Excel VBA Borad (掲示板)より Previous Next
こんにちは、いつも参考にさせて頂いており、お世話になっています。
ところで、初めての質問なのですが、アクティブセルを含む 2列 2行ほどを、ワンクリックボタンなどで結合させたいのですが、 どのようなVBAを組めばよろしいのでしょうか。セル固定ですとすぐ出来るのですが、アクティブセルになるとどうも変わるようで???です。 どうか宜しくお願いします。
Answer   2005.4.20 Yoshioh Nagai
あまり時間がないので結論だけです。
Sub アクティブセルを基点に2行2列のセル範囲を結合する()
    列 = ActiveCell.Column                      'アクティブセルの列番号
    行 = ActiveCell.Row                         'アクティブセルの行番号
    Range(Cells(行, 列), Cells(行 + 1, 列 + 1)).Select 'セル範囲を選択する
    Selection.MergeCells = True                 'セルを結合する
End Sub
このような場合は、まず、マクロを自動記録して、それをどう修正すればよいかを考えるとよろしいかと思います。
自動記録されたマクロには不必要な部分が多いですので、関係部分を下記に示しておきます。
Sub セル結合()
    Range("A1:B2").Select
    With Selection
        .MergeCells = True
    End With
End Sub
ありがとうございました
いま、感動してます。 こんなに簡単にできるなんて! 2週間以上も悩んでたのが、うそのようです。
ホントにありがとうございました。

 

Excel VBA Macro