如何将VBA格式设置应用到多个Excel工作表？

原代码仅能对单个工作表生效，原因是格式处理逻辑直接绑定了shDSMaster工作表对象。要实现多表批量处理，只需把格式核心逻辑抽成独立子过程，再逐个传入目标工作表即可：

修改后的完整代码 #

Public Sub FormatCostcode()
    ' 调用子过程处理目标工作表
    FormatSingleSheet shDSMaster
    FormatSingleSheet shSlave
End Sub

' 封装单工作表格式处理逻辑
Private Sub FormatSingleSheet(targetSheet As Worksheet)
    Dim HeaderRow As Integer
    Dim i As Integer

    HeaderRow = 4
    With targetSheet
        .Range("A:A,B:B").ClearFormats
        .Range("A" & HeaderRow, "B" & HeaderRow).Interior.Color = 13285804
        .Range("A" & HeaderRow, "B" & HeaderRow).Font.FontStyle = "Bold"
        For i = HeaderRow To HeaderRow + GetCostcodeRange - 1
               .Range("B" & i).Font.FontStyle = "bold"
               .Range("A" & i).BorderAround , xlThin
               .Range("B" & i).BorderAround , xlThin
            If .Range("C" & i).Value = "Surgical" Then
               .Range("B" & i).Interior.Color = 15773696
               .Range("A" & i).Interior.Color = 15773696
            ElseIf .Range("C" & i).Value = "Critical Care" Or .Range("C" & i).Value = "Medical 1" Then
               .Range("B" & i).Interior.Color = 9359529
               .Range("A" & i).Interior.Color = 9359529
            ElseIf .Range("C" & i).Value = "Medical 2" Then
               .Range("B" & i).Interior.Color = 14842064
               .Range("A" & i).Interior.Color = 14842064
            ElseIf .Range("C" & i).Value = "NICU and Womens' Health" Then
               .Range("B" & i).Interior.Color = 16735231
               .Range("A" & i).Interior.Color = 16735231
            ElseIf .Range("C" & i).Value = "Others" Then
               .Range("B" & i).Interior.Color = 8696052
               .Range("A" & i).Interior.Color = 8696052
            End If
        Next i
    End With
End Sub

关键修改说明 #

• 新增FormatSingleSheet子过程，接收Worksheet类型参数，把原格式逻辑全部移到这里，实现逻辑与具体工作表解耦。
• 主过程FormatCostcode只需两次调用FormatSingleSheet，分别传入shDSMaster和shSlave即可完成多表格式设置。
• 后续要处理更多工作表时，只需在主过程中添加对应调用语句，无需重复编写格式逻辑。

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