memo.xight.org

日々のメモ

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

Summary

「横方向に結合」があるのに「縦方向に結合」が無い。
マクロで解決。

リボンに開発タブが表示されていない場合は、Officeボタンから
[Excelのオプション] - [基本設定]タブ
[開発]タブをリボンに表示する にチェックする。

Source

Sub 縦方向に結合()
	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
End Sub


Reference

きまぐれDiary: 090123 縦方向に結合(Excel)
http://jabberwock-diary.cocolog-nifty.com/blog/2009/01/090123-excel-82.html