VBA筛选yyyy-mm-dd hh:mm:ss格式字符串日期失败，求解决方案

问题背景 #

某Excel表格的第43列显示格式为yyyy-mm-dd hh:mm:ss，但实际单元格数据类型为字符串（vbString，VarType=8）。使用「文本筛选-自定义筛选」手动筛选或录制的宏代码执行后，均无法得到预期结果（返回0条），尝试多种VBA写法也无效。

a) 手动筛选设置步骤 #

因为列数据是字符串类型，需遵循字符串字典序匹配逻辑，确保筛选条件的格式与单元格内字符串完全一致：

• 选中目标列表头，点击「文本筛选」→「自定义筛选」
• 第一个条件选择「大于或等于」，输入与单元格格式完全一致的字符串：2023-01-01 00:00:01
• 勾选「与」逻辑
• 第二个条件选择「小于或等于」，输入：2023-01-31 23:59:59
• 点击「确定」完成筛选

注意：若仍无结果，需检查单元格字符串是否存在前导/尾随空格、日期分隔符（是否为-）、时间格式（是否为24小时制）等细节，确保筛选条件与单元格内容完全匹配。

b) 有效VBA代码 #

核心是直接使用字符串格式的条件，确保与单元格内字符串格式一致，无需转换为日期类型：

Sub FilterStringDates()
    ' 定义工作表和表格对象
    Dim targetSheet As Worksheet
    Dim targetTable As ListObject
    
    Set targetSheet = ActiveSheet ' 可替换为指定工作表，如ThisWorkbook.Worksheets("你的表名")
    Set targetTable = targetSheet.ListObjects("TABLAMOVSINVT")
    
    ' 清除该列已有的筛选（可选）
    targetTable.Range.AutoFilter Field:=43
    
    ' 设置文本范围筛选
    targetTable.Range.AutoFilter Field:=43, _
        Criteria1:=">=2023-01-01 00:00:01", _
        Operator:=xlAnd, _
        Criteria2:="<=2023-01-31 23:59:59"
End Sub

补充说明：如果单元格字符串存在格式差异（如含空格），需先统一单元格格式，或调整筛选条件的字符串内容完全匹配单元格实际值。

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