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

2019年1月30日VBA, プログラミング

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

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

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

できること

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

VBAコード

'分類表の横線を修正
Sub 罫線_横_リビルド()
	For i = 1 To Selection.Count
		If i / Selection.Columns.Count > 0 Then
		'2行目以降を判定
			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です。

参考にしたサイト