VBA - 删除不包含特定值的行

Question

我的工作簿中有大约 30 个不同的工作表，每个工作表都有超过 30k 的条目。每行的第二列中有一个文件的路径。

该文件名可以是任何名称。另一方面，我有一个大约 450 个不同文件名的列表，我正在检查这些文件名。

如果文件路径不包含这 450 个文件名中的任何一个，那么我希望删除该行。

我正在尝试尽可能快速有效地完成此任务。我对 VBA 和 Excel 不太有经验。

Answer 1

无需编写任何 VBA 即可实现此目的的一种简单方法是使用 VLOOKUP:

=VLOOKUP(A1, <absolute_reference_to_file_list>, 1, TRUE)=A1

然后使用过滤工具删除新列中所有包含 FALSE 的行。少数列可能会显示“#N/A”；这应该被视为与 FALSE 相同。

请注意，此方法需要提前对文件名列表进行排序，因为 Excel 将对文件名列表执行二分搜索。

这不是最快的方法，但它相当快，并且可能足以满足您的需求。