如何在特定单元格上放置边框

Question

我有一个按文章、ID 和发布日期排序的 Excel 文件，这意味着我有几行包含同一篇文章。

我想在具有相同文章的所有行下方放置底边框。

我有这个，但它只在 header 行下添加了边框。

Dim count As Integer
count = 0
For Each x In Range("G1").End(xlDown)
    count = count + 1
    Range(Cells(count, 1), Cells(count, 16)).Select
    With Selection.Borders(xlBottom)
     .LineStyle = xlContinuous
     .Color = vbBlack
     .Weight = xlThick
    End With
Next x

Answer 1

如果您希望突出显示数据的最底部，请使用 ws.Range("G" & ws.Rows.Count).End(xlUp).Offset(1).Row

将循环的上限偏移 1

Sub BorderPatrol()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
Dim i As Long

For i = 2 To ws.Range("G" & ws.Rows.Count).End(xlUp).Row
    If ws.Range("G" & i) <> ws.Range("G" & i - 1) Then
        With ws.Range("G" & i - 1).EntireRow.Borders(xlEdgeBottom) 
            .Color = vbBlack
            .Weight = xlThick
        End With
    End If
Next i

End Sub

如何在特定单元格上放置边框

How do I put borders on specific cells

excel

vba

border