如何每隔9行添加粗下边框并按C列内容重置计数（VBA实现）

需求说明 #

• 多工作表，数据范围固定为A1:K列，C列包含数字或文本代码
• 从第2行开始，每累计9行后，为对应行（第9、18、27行等）的A-K单元格添加粗下边框
• 遇到C列为文本代码时，重置计数，重新开始累计行数
• 当数据行结束时停止执行

原代码问题 #

原代码通过LC获取工作表最后一列，导致边框应用到所有列，无法限定在A-K范围；且仅通过行号取模判断，未处理C列文本重置计数的逻辑。

Sub Borders()
Dim cl As Range
Dim LC As Long
LC = Cells(1, Columns.Count).End(xlToLeft).Column
For Each cl In Range("$A$1:$A" & Cells(Rows.Count, "A").End(xlUp).Row)
If cl.Row Mod 10 = 0 Then
    With cl.Resize(1, LC).Borders(xlEdgeBottom)
      .LineStyle = xlDouble
      .Weight = xlThick
      .ColorIndex = xlAutomatic
    End With
End If
Next cl
End Sub

修改后的代码 #

Sub AddThickBottomBorders()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rowCounter As Integer
    Dim i As Long
    
    ' 遍历当前工作簿所有工作表
    For Each ws In ThisWorkbook.Worksheets
        rowCounter = 0
        ' 获取C列最后有数据的行号
        lastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row
        
        ' 从第2行开始处理到数据结束行
        For i = 2 To lastRow
            ' 判断C列当前行是否为数字
            If IsNumeric(ws.Cells(i, "C").Value) Then
                rowCounter = rowCounter + 1
                ' 累计满9行时添加粗下边框
                If rowCounter = 9 Then
                    With ws.Range(ws.Cells(i, "A"), ws.Cells(i, "K")).Borders(xlEdgeBottom)
                        .LineStyle = xlDouble
                        .Weight = xlThick
                        .ColorIndex = xlAutomatic
                    End With
                    rowCounter = 0 ' 重置计数
                End If
            Else
                ' 遇到文本代码，立即重置计数
                rowCounter = 0
            End If
        Next i
    Next ws
End Sub

代码关键点说明 #

1. 限定A-K列：直接通过Range(Cells(i, "A"), Cells(i, "K"))指定边框应用范围，精准控制在需求列内
2. 多工作表适配：通过For Each ws In ThisWorkbook.Worksheets遍历所有工作表，无需单独处理每个表
3. 计数逻辑优化：用rowCounter手动累计行数，遇到C列文本时立即重置，完全匹配需求规则
4. 数据边界判断：以C列最后数据行作为终止条件，确保只处理有效数据行

内容的提问来源于stack exchange，提问作者Craig Myers