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

Answer 1

尝试：

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

Answer 2

基本上，用Range("B" & rowPtr).EntireRow.Insert代码替换代码来添加边框！

您的代码重构，加上其他几个 tweeks

Sub BorderRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rowPtr As Long
    Dim columnsToBorder As Long

    Set ws = ActiveSheet
    columnsToBorder = 28
    With ws
        lastRow = .Range("B" & .Rows.Count).End(xlUp).Row
        'Optional, clear existing borders
        With .UsedRange.Resize(, columnsToBorder)
            .Borders(xlEdgeTop).LineStyle = xlNone
            .Borders(xlEdgeBottom).LineStyle = xlNone
            .Borders(xlInsideHorizontal).LineStyle = xlNone
        End With

        For rowPtr = 2 To lastRow
            If Not IsEmpty(.Cells(rowPtr, 2)) Then
                If .Cells(rowPtr, 2).Value <> .Cells(rowPtr - 1, 2).Value Then
                    With .Cells(rowPtr, 1).Resize(1, columnsToBorder).Borders(xlEdgeTop)
                        .LineStyle = xlContinuous
                        .ColorIndex = xlAutomatic
                        .TintAndShade = 0
                        .Weight = xlThick
                    End With
                End If
            End If
        Next

        'Optional, add borber to last row
        With .Cells(lastRow, 1).Resize(1, columnsToBorder).Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThick
        End With

    End With
End Sub