セルを縦方向に結合
エクセルの標準ボタンには「横方向に結合」がありますが、「縦方向に結合」はありません。
どうしてないのかわかりませんが、個人的にその機能が欲しいので、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までをコピーし、標準モジュール等に貼り付けて使用して下さい。なお、マクロで実行した処理は「元に戻す」ことができません。実行前に一旦保存しやり直しのできる状態にしておいて下さい。標準モジュールにコードを貼り付けてマクロを使用する方法はこちら。
- 縦方向に結合したい範囲を選択する
- マクロを実行する