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

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

我正在一个VBA项目中，我需要自动过滤一个大的领域。 从上面的代码可以看出，我正在过滤17个字段或列。 我希望代码查看单元格A1中的值以确定要过滤的字段/列。 例如，如果单元格A1表示15，我想按字段15进行过滤。所以，如果我没有明确自己的意思，我想用代码中的Field：= 17replaceField：=（Cell A1 Value ）

Answer 1

我遇到了同样的问题，并且find了解决办法。 如果有人来找，可能会有所帮助

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

在上面的情况下：

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