VBA动态列自动筛选问题：如何获取正确筛选字段编号？

嘿，我一眼就看出问题出在哪了——你用ActiveCell.Column作为Field参数的值，但这个参数要的不是工作表的绝对列号，而是相对于当前自动筛选区域的列索引（从1开始计数）！

举个例子：如果你的筛选区域从B列开始，那B列是筛选区域的第1个字段，C列是第2个，但你的代码会把B列当成第2个字段（因为B列的列号是2），自然就会偏移出空白列，筛选不到目标列。

修复后的代码 #

下面是调整后的代码，完美解决这个偏移问题：

Sub Filtro_Valor_Célula()
    'Filtra a coluna pelo valor da célula selecionada
    Dim valor As Variant
    Dim filterRange As Range
    Dim fieldIndex As Integer
    
    ' 先检查是否开启了自动筛选，避免报错
    If Not ActiveSheet.AutoFilterMode Then
        MsgBox "Por favor, ative o filtro automático na planilha primeiro!", vbExclamation
        Exit Sub
    End If
    
    valor = ActiveCell.Value
    Set filterRange = ActiveSheet.AutoFilter.Range
    
    ' 关键：计算选中单元格在筛选区域内的相对字段索引
    fieldIndex = ActiveCell.Column - filterRange.Column + 1
    
    ' 执行筛选
    filterRange.AutoFilter Field:=fieldIndex, Criteria1:=valor
End Sub

核心修复逻辑 #

• 我们先把当前的筛选区域存到filterRange变量里，这样能拿到它的起始列号
• fieldIndex = ActiveCell.Column - filterRange.Column + 1：这行是精髓！用选中单元格的绝对列号减去筛选区域的起始列号，再加1，就能得到它在筛选区域内的正确索引。比如筛选区域从B列（列号2）开始，选中C列（列号3），计算后就是3-2+1=2，对应筛选区域的第2个字段，完全正确。

额外优化（可选） #

如果你想更严谨，可以加个判断，确保选中的单元格在筛选区域内，避免无效操作：

' 替换原来的fieldIndex计算和筛选部分
If Not Intersect(ActiveCell, filterRange) Is Nothing Then
    fieldIndex = ActiveCell.Column - filterRange.Column + 1
    filterRange.AutoFilter Field:=fieldIndex, Criteria1:=valor
Else
    MsgBox "A célula selecionada não está na área de filtro!", vbExclamation
End If

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