如果为空，如何检查范围内的空单元格然后检入选择VBA？

Question

我有以下代码，将由用户selection过滤表。

1. 我想先检查range A3:T3是否有值，如果有，我会添加到我的数组并开始过滤并忽略Range A3:T3中的所有空单元格。< / p>

2. 如果范围A3：T3为空，则按用户selection过滤。

3. 我注意到有一个错误，如果我按单元格过滤，并且该单元格有2行数据1将显示而1不是因为前面有空格我觉得它是{{1}有没有办法让过滤器部分匹配包含两个版本？我知道我可以替换ChrW并替换它，但数据将始终从outlook粘贴，因此发生频繁，所以如果我可以进行部分匹配，这可能会解决很多问题。

非常感谢任何帮助。

ChrW

Answer 1

如果要在单个字段中过滤多个条件，则需要如下数组：

.AutoFilter Field:=1, Criteria1:=Array("val 2", "val 3", "val 4"), Operator:=xlFilterValues

所以filterCriteria（i）必须是一个数组，你可以按照下面这样做：

filterCriteria(i) = Array("item1","item2")
.AutoFilter Field:=filterFields(i), Criteria1:=filterCriteria(i), Operator:=xlFilterValues