看起来你的代码大概率是在对象类型声明或者表格引用方式上出了问题，结合你的场景（结构化表格+自定义格式日期），我整理了几个常见问题的修复方案和完整实现代码：

先明确你的场景细节 #

• 工作表：DateSheet
• 结构化表格（ListObject）：DateTable
• 日期列：Date，显示格式为YYYY-MM-DD（注意：Excel单元格实际存储的是日期数值，格式只是显示效果）

你的原代码核心问题 #

你把DateTable声明成了Range，但它是Excel的结构化表格（ListObject），不是普通单元格区域，这会导致引用失败。另外，日期匹配时直接用字符串容易踩坑——因为自定义格式只是显示，单元格实际存的是日期数值，字符串匹配可能和实际存储值不兼容。

方案1：用AutoFilter筛选并选中特定日期行（推荐，效率更高） #

这种方法适合数据量较大的情况，利用Excel自带的筛选功能快速定位目标行：

Sub SelectTargetDateRows()
    Dim targetWs As Worksheet
    Dim dateTable As ListObject
    Dim targetDate As Date
    
    ' 1. 设置你要查找的目标日期（用DateSerial避免格式问题）
    targetDate = DateSerial(2018, 1, 2) ' 对应2018-01-02
    
    ' 2. 正确引用工作表和结构化表格
    Set targetWs = ThisWorkbook.Worksheets("DateSheet")
    Set dateTable = targetWs.ListObjects("DateTable")
    
    ' 3. 清除之前的筛选（如果有的话）
    If dateTable.ShowAutoFilter Then
        dateTable.AutoFilter.ShowAllData
    End If
    
    ' 4. 对Date列应用筛选（用列名定位更可靠，避免列顺序变化）
    dateTable.Range.AutoFilter _
        Field:=dateTable.ListColumns("Date").Index, _
        Criteria1:=targetDate
    
    ' 5. 选中筛选后的可见行（排除表头）
    If Not dateTable.DataBodyRange Is Nothing Then
        dateTable.DataBodyRange.SpecialCells(xlCellTypeVisible).Select
    Else
        MsgBox "没有找到匹配的日期行哦！"
    End If
End Sub

方案2：遍历表格行查找并选中目标日期 #

如果需要更灵活的逻辑（比如多条件判断），可以遍历表格的每一行：

Sub FindAndSelectDateRows()
    Dim targetWs As Worksheet
    Dim dateTable As ListObject
    Dim targetDate As Date
    Dim currentRow As ListRow
    Dim selectRange As Range
    
    targetDate = DateSerial(2018, 1, 2)
    Set targetWs = ThisWorkbook.Worksheets("DateSheet")
    Set dateTable = targetWs.ListObjects("DateTable")
    Set selectRange = Nothing
    
    ' 遍历表格的每一行数据
    For Each currentRow In dateTable.ListRows
        ' 比较Date列的实际值（这里用列名定位，不怕列顺序变）
        If currentRow.Range(dateTable.ListColumns("Date").Index).Value = targetDate Then
            ' 把匹配的行合并到选中区域
            If selectRange Is Nothing Then
                Set selectRange = currentRow.Range
            Else
                Set selectRange = Union(selectRange, currentRow.Range)
            End If
        End If
    Next currentRow
    
    ' 选中找到的行
    If Not selectRange Is Nothing Then
        selectRange.Select
    Else
        MsgBox "没有找到匹配的日期行！"
    End If
End Sub

关键注意事项 #

1. 避免用字符串匹配日期：直接用Date类型（比如DateSerial）匹配，因为Excel的日期本质是数值，自定义格式只是显示样式，字符串可能和实际存储值不匹配。
2. 正确引用结构化表格：一定要用ListObject类型声明，而不是Range。
3. 调试小技巧：如果还是跑不通，可以在VBA编辑器按Ctrl+G打开立即窗口，添加Debug.Print查看变量，比如：

   Debug.Print dateTable.ListColumns("Date").Index ' 查看Date列的索引是否正确
   Debug.Print targetDate ' 查看目标日期的实际存储值
   

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