基于单元格内容的VBA Excel自动筛选列

Question

ActiveSheet.Range("$A$1:$AK$5000").AutoFilter Field:=17, Criteria1:="<>"

我正在VBA项目中工作，在该项目中我需要自动过滤大字段。 从上面的代码中可以看到，我正在过滤17个字段或列。 我希望代码查看单元格A1中的值以确定要过滤的字段/列。 例如，如果单元格A1表示15，我想按字段15进行过滤。因此，如果我自己不清楚，我想用类似Field：=（Cell A1 Value的代码）替换代码中的Field：= 17 ）

Answer 1

我遇到了与此处相同的问题，并找到了解决方案。 如果有人来找可能会有所帮助

使用Range对象的Column属性获取您感兴趣的特定单元格的列号。

在上述情况下：

ActiveSheet.Range("$A$1:$AK$5000").AutoFilter Field:=Range("A1").Column, Criteria1:="<>"