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

2019年1月30日2019年10月12日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