【EXCEL VBA】コピペでぐちゃぐちゃになった罫線を一発で直す

2019年1月30日VBA

EXCELで分類表などを作っていて、コピペにコピペを重ねたときに罫線がぐちゃぐちゃになったことありません？

それを手作業で直すと地味に時間が掛かってしまいます。

そこで、VBAを使って簡単に修正するテクニックをご紹介します。

できること

左のような罫線がぐちゃぐちゃになった表を、マクロを実行することで、右のように整えることができます。

VBAコード

'分類表の横線を修正
Sub 罫線_横_リビルド()
	For i = 1 To Selection.Count
		If i / Selection.Columns.Count > 0 Then
		'２行目以降を判定
			If Selection(i).Text = "" Then
				Selection(i).Borders(xlEdgeTop).LineStyle = xlNone
			Else
				Selection(i).Borders(xlEdgeTop).LineStyle = xlContinuous
			End If
		End If
	Next i
End Sub

使い方

修正したい罫線を含むセルを選択し、マクロを実行すればOKです。

参考にしたサイト

officetanaka.net
Office TANAKA - Excel VBA Tips[選択範囲の操作]
http://officetanaka.net/excel/vba/tips/tips111.htm

VBA