如何用VBA为日期序列中每组最后一行添加底部边框？

核心思路 #

• 先定位数据区域的最后有效行，避免处理空行
• 从数据起始行（假设表头在第1行，数据从第2行开始）向下遍历，对比当前行与下一行的A列日期
• 当当前行日期和下一行日期不同时，当前行即为该日期组的最后一行，为该行添加底部边框

完整VBA代码 #

Sub AddBottomBorderToLastDateRow()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定要处理的工作表，替换为你的实际表名
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取A列最后一行有数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历数据行（从第2行开始，若表头不在第1行可修改起始值）
    For i = 2 To lastRow
        If i < lastRow Then
            ' 当前行日期≠下一行日期时，标记为当前日期组最后一行
            If ws.Cells(i, "A").Value <> ws.Cells(i + 1, "A").Value Then
                ' 给当前行所有有数据的列加底部边框，可按需调整列范围
                ws.Range(ws.Cells(i, "A"), ws.Cells(i, ws.Cells(i, ws.Columns.Count).End(xlToLeft).Column)).Borders(xlEdgeBottom).LineStyle = xlContinuous
            End If
        Else
            ' 表格最后一行直接加底部边框
            ws.Range(ws.Cells(i, "A"), ws.Cells(i, ws.Cells(i, ws.Columns.Count).End(xlToLeft).Column)).Borders(xlEdgeBottom).LineStyle = xlContinuous
        End If
    Next i
End Sub

代码说明 #

• Set ws = ThisWorkbook.Worksheets("Sheet1")：把Sheet1改成你实际使用的工作表名称
• lastRow = ...：通过A列定位数据终点，确保只处理有内容的行
• 遍历逻辑里的i < lastRow是为了避免越界，最后一行单独处理（没有下一行可对比）
• 自动获取当前行最后有数据的列，不用手动指定列号，适配不同列数的表格

可选调整 #

• 若只需要给A列加边框，把范围改成ws.Cells(i, "A")即可
• 要修改边框粗细，可在代码里添加.Weight = xlThick（粗边框）或.Weight = xlThin（细边框）

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