excel - VBA Excel - 在所有工作表中查找字符串，并将匹配的行复制到新工作表

Question

我有一个包含许多工作表的 Excel 文件。我想在现有工作表的任何单元格中找到一个字符串并将其复制到新的“结果”工作表中。我需要获取找到许多字符串（大约 50 个不同的字符串）的行，并将这些结果放在单独的行中。

如果我可以提供一组要搜索的字符串，并且“结果”表在结果块之间有一个空白行（以区分找到的字符串块），那就太好了。

我已经用谷歌搜索了这个，但找到了复制匹配字符串行的代码，但它们只在一张表中搜索，我需要在所有现有表中搜索（当然，“结果”表除外）。

我将非常感谢您的帮助！

Answer 1

如果您有一个ProcessSheet可以在一张纸上运行的功能，您可以在每张纸上运行它，例如：

Dim Sh As WorkSheet
For Each Sh In Sheets
  If Sh.Name <> "Sheet not to process" Then ProcessSheet Sh
Next Sh

并修改您的ProcessSheet，以便每个引用都使用Sh，如下所示：

'without sheet reference
Cells(1, 2)
Range("A1")
'become
Sh.Cells(1, 2)
Sh.Range("A1")