如何简化VBA多宏中的IF判断，统一管理需忽略的工作表？

我在多个VBA宏里写了带For...If...Then的逻辑，目前是排除「Payroll Expenses」和「Paystub」工作表进行计算。每次新增要忽略的工作表时，得逐个修改所有宏里的If条件，加类似Sheets(x).Name <> "NEW SHEET"的判断。之前用Private Const统一管理变量效果不错，想知道能不能用类似方式统一管理需忽略的工作表列表。试过用字符串常量存忽略的表名但识别不了，直接用And/Or连接也不行，求VBA新手友好的解决方案。

现有代码示例：
第一个宏：

For x = 1 To Sheets.Count
    If Sheets(x).Name <> "Payroll Expenses" And Sheets(x).Name <> "Paystub" Then
    
    i = i + Sheets(x).Cells(sourcename, 4).Value

第二个宏：

For x = 1 To Sheets.Count
    If Sheets(x).Name <> "Payroll Expenses" And Sheets(x).Name <> "Paystub" Then
    
    i = i + Sheets(x).Cells(sourcename, 5).Value

方法1：常量数组+自定义函数（新手首选） #

在模块顶部统一维护忽略列表，用自定义函数封装判断逻辑，所有宏直接调用即可，新增/删除忽略表只改一处。

1. 在模块的最开头（所有宏代码之外）添加以下内容：

' 统一维护需要忽略的工作表，新增/删除直接修改逗号分隔的表名
Private Const IGNORE_SHEETS As String = "Payroll Expenses,Paystub"

' 判断指定工作表是否在忽略列表里的工具函数
Private Function IsSheetIgnored(sheetName As String) As Boolean
    Dim ignoreList() As String
    ignoreList = Split(IGNORE_SHEETS, ",") ' 把字符串拆成数组遍历
    
    Dim item As Variant
    For Each item In ignoreList
        If Trim(item) = sheetName Then
            IsSheetIgnored = True
            Exit Function
        End If
    Next item
    IsSheetIgnored = False
End Function

2. 修改原有宏的If条件，替换成调用上面的函数：
   第一个宏修改后：

For x = 1 To Sheets.Count
    If Not IsSheetIgnored(Sheets(x).Name) Then
        i = i + Sheets(x).Cells(sourcename, 4).Value
    End If
Next x

第二个宏修改后：

For x = 1 To Sheets.Count
    If Not IsSheetIgnored(Sheets(x).Name) Then
        i = i + Sheets(x).Cells(sourcename, 5).Value
    End If
Next x

优势：后续新增忽略表时，只需要在IGNORE_SHEETS常量里加个逗号和新表名，所有宏的判断逻辑自动同步，不用逐个修改。

方法2：集合存储忽略列表（更灵活） #

如果需要动态调整忽略列表（比如运行时根据条件添加/删除），可以用集合代替常量字符串，调用逻辑和方法1一致。

1. 在模块顶部定义集合，并在工作簿打开时初始化：

Private ignoreSheetCollection As Collection

' 工作簿打开时初始化忽略列表，新增忽略表直接加一行Add
Private Sub Workbook_Open()
    Set ignoreSheetCollection = New Collection
    ignoreSheetCollection.Add "Payroll Expenses"
    ignoreSheetCollection.Add "Paystub"
End Sub

' 判断函数
Private Function IsSheetIgnored(sheetName As String) As Boolean
    On Error Resume Next ' 找不到集合元素会报错，用错误处理跳过
    ignoreSheetCollection.Item sheetName
    IsSheetIgnored = (Err.Number = 0)
    On Error GoTo 0 ' 恢复默认错误处理
End Function

2. 宏里的调用方式和方法1完全相同，用If Not IsSheetIgnored(Sheets(x).Name) Then即可。

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