如何通过工作表名称列表批量排除循环中的指定工作表

嘿，刚好处理过类似的需求，我来帮你解决这个动态排除工作表的问题！

你之前那种硬写一堆ws.Name <> "Sheet1" And ws.Name <> "Sheet2"的方式确实太折腾了，每次排除的工作表变了都要改代码，完全不灵活。

亲测有效的简单方案 #

你提到的CLR的方法真的是上手最快的，我给你整理一下具体怎么弄：

• 先在你用来汇总数据的第一个工作表（比如Sheet1）里，找一列专门放要排除的工作表名称——比如A列，从A2开始填，A1可以整个表头“需要排除的工作表”，一定要把这个汇总工作表自己的名称也加进去！毕竟你本来就不想循环处理它对吧？
• 然后把你的VBA代码改成下面这样，用Match函数来判断当前工作表是否在排除列表里：

Dim ws As Worksheet
Dim excludeListRange As Range

' 先定位到汇总表里的排除列表区域
Set excludeListRange = ThisWorkbook.Worksheets("Sheet1").Range("A2:A" & _
    ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row)

For Each ws In ThisWorkbook.Worksheets
    ' 如果当前工作表名称不在排除列表里，就执行收集数据的逻辑
    If IsError(Application.Match(ws.Name, excludeListRange, 0)) Then
        ' 这里替换成你原来的收集数据代码
        ' 举个例子：ws.Range("A1:C10").Copy ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Offset(1)
    End If
Next ws

这个方法的好处 #

• 完全动态：以后要加或者删排除的工作表，直接在汇总表的列表里改就行，根本不用碰代码
• 代码简洁：不用写一长串的And判断，逻辑一目了然

当然还有其他方案（比如把排除列表转成数组再判断，效率会更高一点），不过这个方法最直观，对你的需求来说完全够用。

备注：内容来源于stack exchange，提问作者vini