Excel VBA中Autofilter用变量实现“不包含”筛选的问题求助

你的代码核心问题是把变量直接写在字符串引号内，VBA会将filternumber识别成普通文本而非变量，导致筛选条件变成了排除文本"filternumber"，而非变量存储的月份值。

修正后的完整代码 #

Dim last_row1 As Long
Dim filternumber As String
Dim ws2 As Worksheet

Set ws2 = Worksheets(2)
' 直接通过工作表对象获取最后一行，避免依赖Activate
last_row1 = ws2.Cells(ws2.Rows.Count, 3).End(xlUp).Row
filternumber = CStr(Month(Date)) ' 显式转换为字符串，避免类型问题

' 清除现有筛选
On Error Resume Next
ws2.ShowAllData
On Error GoTo 0

' 正确拼接筛选条件：将<>符号与变量用&连接
ws2.Range("D1").AutoFilter Field:=4, Criteria1:="<>" & filternumber

Application.DisplayAlerts = False
' 若要删除整行而非仅D列，可改为 ws2.Rows("2:" & last_row1).SpecialCells(xlCellTypeVisible).Delete
ws2.Range("D2:D" & last_row1).SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True

' 再次清除筛选
On Error Resume Next
ws2.ShowAllData
On Error GoTo 0

关键修正点 #

• 条件拼接：用"<>" & filternumber替代"<>filternumber"，让VBA解析变量的值，而非把变量名当成文本
• 避免Activate依赖：直接通过ws2对象操作单元格，代码更稳定，不会因当前激活工作表变化而出错
• 类型转换：用CStr()显式将月份数字转为字符串，确保与筛选条件的字符串类型匹配（可选，但能避免潜在类型错误）

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