VBAの勉強を始めてみた

色々試しています。

セルを縦方向に結合

f:id:kouten0430:20180714203732j:plain

エクセルの標準ボタンには「横方向に結合」がありますが、「縦方向に結合」はありません。
どうしてないのかわかりませんが、個人的にその機能が欲しいので、VBAで作ってみます。

ググればありそうだけど、簡単そうなので、自分でやってみます。

Sub 縦方向に結合()
    Dim i As Integer

    For i = Selection.Column To Selection.Columns(Selection.Columns.Count).Column
        Range(Cells(Selection.Row, i), Cells(Selection.Rows(Selection.Rows.Count).Row, i)).Merge
    Next i

End Sub

 

※コードの使用方法

  • SubからEnd Subまでをコピーし、標準モジュール等に貼り付けて使用して下さい。なお、マクロで実行した処理は「元に戻す」ことができません。実行前に一旦保存しやり直しのできる状態にしておいて下さい。標準モジュールにコードを貼り付けてマクロを使用する方法はこちら
  1. 縦方向に結合したい範囲を選択する
  2. マクロを実行する