VBA实现基于单元格值创建AutoFilter筛选的代码问题排查

你当前代码异常是四个逻辑错误叠加导致的：

• 末列计算方向写反：取首行最后一个非空列应该从工作表最右列向左查找，你写的End(xlToRight)会从A1向右跳到工作表最大列，导致扫描范围覆盖整行所有空列。
• 列偏移计算逻辑完全错位：你用仅在非空单元格时才自增的变量i做列偏移和筛选字段序号，遇到首行空单元格时i不会累加，但遍历的单元格是按实际列顺序向后走的，最终会把筛选位置全部算错，出现空列也被加筛选的问题。
• 工作表范围引用未绑定：定义rng时用到的Cells对象没有加wSheet前缀，会默认读取当前活动工作表的单元格，一旦活动表不是Machining，取到的扫描范围完全错误。
• 自动筛选调用逻辑错误：逐单元格单独调用AutoFilter前没有先清除工作表原有筛选配置，会残留旧筛选；同时你写的i + 1列偏移、Field:=i参数和实际列位置不匹配，筛选会被加到错误的列上。

不需要额外的自增计数器做列偏移——首行某列非空时，直接给第三行同列位置应用筛选即可，修正后可直接运行的代码如下：

Sub FilterRefresh()
    Dim lastCol As Long
    Dim cell As Range
    Dim wSheet As Worksheet
    
    Set wSheet = Worksheets("Machining")
    ' 先清除原有自动筛选，避免残留配置干扰
    If wSheet.AutoFilterMode Then wSheet.AutoFilterMode = False
    
    ' 取首行最后一个非空列号，所有Cells对象绑定wSheet避免引用错误
    lastCol = wSheet.Cells(1, wSheet.Columns.Count).End(xlToLeft).Column
    
    ' 遍历首行A列到最后一个非空列的所有单元格
    For Each cell In wSheet.Range(wSheet.Cells(1, 1), wSheet.Cells(1, lastCol))
        ' 首行单元格非空时，给第三行同列位置添加自动筛选
        If cell.Value <> "" Then
            wSheet.Cells(3, cell.Column).AutoFilter Field:=1, Criteria1:=cell.Value
        End If
    Next cell
End Sub

• 代码运行前会先关闭工作表已存在的自动筛选，避免旧筛选残留导致的显示异常
• 所有单元格范围引用都绑定到目标工作表Machining，不会因为活动表切换导致范围取错
• 直接用遍历单元格的Column属性定位第三行的对应列，完全去掉了容易错位的自增计数器逻辑，空单元格会直接跳过，不会给对应列加筛选。

内容的提问来源于stack exchange，提问作者Dando276