Excel VBA硬编码范围转动态变量及自动筛选动态日期参数设置方法

问题1：动态获取所有有效数据范围 #

等效于Ctrl+End的实现可以直接调用VBA内置的SpecialCells(xlCellTypeLastCell)定位到工作表最后一个有内容的单元格，再拼接范围即可，完全适配每日变化的行数，不需要硬编码数值。如果表格存在偶发空行，也可以替换为按首列/有数据的列向上查找最后一行的逻辑，兼容性更强。

问题2：筛选昨日和当日的正确写法 #

VBA自动筛选的日期条件需要把日期变量转为字符串拼接，同时用Format函数统一日期格式，避免系统区域设置差异导致匹配失效。VBA内置Date函数直接返回当日系统日期，昨日直接用Date - 1计算即可。

修改后的完整代码 #

Sub Macro7Step2()
'
' Macro7Step2 Macro
'
    Dim lastRow As Long
    Dim dataRng As Range
    ' 等效Ctrl+End获取最后一个有内容的单元格行号
    lastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    ' 拼接完整数据范围
    Set dataRng = ActiveSheet.Range("$A$1:$AT$" & lastRow)
    
    ' 第17列筛选昨日到当日的内容
    dataRng.AutoFilter Field:=17, Criteria1:=">=" & Format(Date - 1, "yyyy/m/d"), _
        Operator:=xlAnd, Criteria2:="<=" & Format(Date, "yyyy/m/d")
    ' 第3列筛选指定状态
    dataRng.AutoFilter Field:=3, Criteria1:="In Production"
End Sub

补充说明 #

• 如果你的表格第一列A列始终有值不会为空，也可以把lastRow的赋值逻辑替换为lastRow = ActiveSheet.Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row，过滤底部空行的影响
• 如果你的表格日期格式为月/日/年的顺序，把Format函数的第二个参数调整为"m/d/yyyy"即可正常匹配

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