【ExcelVBA】値が異なるごとに太い罫線を引く

取引先等、名前が変わる下線部の罫線を強調する方法です。

設定前と設定後

例：D列の購入先が変わるごとに青い太めの計算を引く

日付を1月で抽出した状態

罫線を引きたい範囲を選択した状態

実行結果

サンプルコード

青い下線部を引くコードです。

Sub sample_keisen()
    Dim i As Long
    
    For i = Selection(1).Row To Selection(Selection.Count).Row
        If Cells(i, 4) <> Cells(i + 1, 4) Then
            With Range(Cells(i, 1), Cells(i, 4)).Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = xlMedium
                .Color = vbBlue
             End With
         End If
    Next i

End Sub

コードの説明は後日追記予定