Excel工作簿动态边框设置求助：50个工作表VBA代码优化

我之前碰到过一模一样的场景：手里有个包含50个工作表的Excel工作簿，表头范围是A到Z列，每个工作表的数据范围都不一样。原来用的VBA代码是给非空单元格加边框，但因为数据里有不少空字段，导致边框断断续续效果很差，而且还没法批量应用到所有工作表。

最初尝试的（无法批量生效的）代码 #

我一开始改了一段代码，但只能针对单个工作表使用，没法批量处理所有表：

Sub testborder() 
    Dim rRng As Range 
    Set rRng = Sheet1.Range("A14:K14" & endrow) 
    'Clear existing borders
    rRng.Borders.LineStyle = xlNone 
    'Apply new borders 
    rRng.BorderAround xlContinuous 
    rRng.Borders(xlInsideHorizontal).LineStyle = xlContinuous 
    rRng.Borders(xlInsideVertical).LineStyle = xlContinuous 
End Sub 

最终解决的批量处理代码 #

后来调整出了能遍历所有工作表，只给非空行添加完整边框的代码，完美解决了问题：

Sub AllWorksheetBorders() 
    Application.ScreenUpdating = False 'Prevents screen refreshing
    Dim lngLstCol As Long, lngLstRow As Long, ws As Worksheet
    Dim rngCell As Range, r As Long, c As Long
    For Each ws In ActiveWorkbook.Worksheets
        lngLstRow = ws.UsedRange.Rows.Count
        lngLstCol = ws.UsedRange.Columns.Count
        For Each rngCell In ws.Range("A21:A" & lngLstRow)
            If rngCell.Value <> "" Then
                r = rngCell.Row
                c = rngCell.Column
                With ws.Range(ws.Cells(r, c), ws.Cells(r, lngLstCol)).Borders
                    .LineStyle = xlContinuous 'Setting style of border line
                    .Weight = xlThin 'Setting weight of border line
                    .ColorIndex = xlAutomatic 'Setting colour of border line
                End With
            End If
        Next
    Next
    Application.ScreenUpdating = True 'Enables screen refreshing
End Sub

这个代码的核心优势：

• 自动遍历所有工作表，不用逐个手动运行
• 通过检查A列（从第21行开始）的单元格是否为空，判断整行是否需要添加边框
• 先关闭屏幕刷新，大幅提升运行速度，处理50个表也不会卡顿
• 给整行（从A列到当前表的最后一列）添加统一边框，彻底避免空字段导致的边框断裂问题

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