根据 Workbook1 中单元格值中的单元格值过滤 Workbook2 中的数据

Question

我需要一个 VBA 代码来根据 Workbook1 中的单元格值过滤 Workbook2 中的数据。

例如： 我需要从过滤数据下的单元格中提取数据

如果有多个以分号分隔的值，则拆分数据，并在 Workbook1 中使用 xlOr 操作应用过滤器。需要过滤的数据会根据单元格值动态变化。

Answer 1

您正在寻找的解决方案是一个简单的 Split 函数。

criterias = Split(ThisWorkbook.Worksheets(1).Cells(2, 1).Value, ";")

它将工作表 1 单元格 A2 中的字符串拆分为一个数组，在“;”处剪切并且只是一个数组。在这种情况下，数组看起来像标准=[A,B,C] 获得该字符串后，您可以使用自动过滤器。

ThisWorkbook.Worksheets(2).Range("A1").AutoFilter Field:=1, Criteria1:=criterias, Operator:=xlFilterValues

这将过滤它，以便它只显示包含 A、B 或 C 的所有单元格。 您可以将 Thisworkbook.worksheets(1) 更改为第二个工作簿的任何内容。