将具有相似工作表名称的多个工作表复制到新工作簿中

Question

我想将特定的工作表（具有相似的工作表名称）复制到新工作簿中。

我看到其他用户以前曾使用数组列出要复制的特定工作表的名称。但是，这对我来说不可行，因为我要复印100多张纸。例如。基金1，基金2，...基金100。

这样，我可以使用一些通配符吗？像工作表名称中包含“资金*”吗？

Answer 1

类似这样的事情应该可以为您完成这项工作：

For Each ws In Worksheets

    If InStr(1, ws.Name, "fund", vbTextCompare) > 0 Then

        'Statement to move the sheet

    End If

Next 

Instr将在工作表名称中找不到Fund时返回0，在工作表的名称中发现>0。