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

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 

如果未找到Fund，则Instr将返回0；如果在工作表的名称中找到，则返回>0。