excel - 当单元格值更改时，如何为一系列行添加粗底边框？

Question

我的代码会在单元格值更改时插入一个空白行。

如何修改它以添加厚底边框？每次列中的值发生变化时，边框都会从一列A移到另一列ABB

Sub InsertRows()
Dim lastRow As Long
Dim rowPtr As Long

lastRow = Range("B" & Rows.Count).End(xlUp).Row
For rowPtr = lastRow To 2 Step -1
    If Not IsEmpty(Range("B" & rowPtr)) Then
        If Range("B" & rowPtr) <> Range("B" & rowPtr - 1) Then
            Range("B" & rowPtr).EntireRow.Insert
        End If
    End If
Next

End Sub

标签： excelvbaborder

Answer 1

尝试：

Range("B" & rowPtr).Select
With Selection.Borders(xlEdgeBottom)
    .Weight = xlThick
End With