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

Excel には「横方向に結合」というセル結合のショートカットはあるのに、「縦方向に結合」はない。

仕方がないので、個人用マクロに以下のようなマクロを作っておき、クイックアクセスツールバーにマクロを追加して使うようにする。

Sub 縦方向に結合()
  On Error Resume Next
  If TypeName(Selection) <> "Range" Then
    Exit Sub
  End If
  With Selection
    If .Rows.Count > 1 Then
      For i = 0 To .Columns.Count - 1
        Range(Cells(.Row, .Column + i), Cells(.Row + .Rows.Count - 1, .Column + i)).Merge
      Next i
    End If
  End With
  On Error GoTo 0
End Sub

エラー対応はしない (ｷﾘｯ

参考