VBA按指定日期查找并选中对应单元格问题求助

原代码存在多个关键问题，导致查找无结果或运行报错：

• 变量声明行末尾多余逗号，触发语法错误
• 用字符串查找日期时，未匹配Excel日期的存储特性（Excel日期本质是数值，字符串格式易不匹配）
• after参数未指定目标工作表，默认指向当前活动表而非「Raw Materials Costs」
• 未处理查找失败的情况，直接调用x.Column会引发运行时错误
• 选中单元格时未指定目标工作表，默认操作当前活动表

修正后的VBA代码 #

Sub Costing()
    Dim TargetDate As Date
    Dim x As Range
    
    ' 将字符串转为日期类型，匹配Excel的日期存储格式
    TargetDate = DateValue("06-Oct")
    
    ' 指定目标工作表，精确查找整单元格匹配的日期
    Set x = Sheets("Raw Materials Costs").Range("A1:AK1").Find( _
        What:=TargetDate, _
        After:=Sheets("Raw Materials Costs").Range("A1"), _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        MatchCase:=False)
    
    ' 先判断是否找到目标，再执行选中操作
    If Not x Is Nothing Then
        Sheets("Raw Materials Costs").Cells(3, x.Column).Select
    Else
        MsgBox "未找到指定日期：06-Oct"
    End If
End Sub

关键修改说明 #

• 将TargetDate改为Date类型，用DateValue转换字符串为日期，避免字符串与单元格日期格式不匹配的问题
• 为Find方法添加LookAt:=xlWhole，确保精确匹配整单元格内容
• 所有范围操作都明确指定目标工作表，避免活动表切换导致的错误
• 添加查找失败的判断逻辑，防止空对象引用报错
• 移除变量声明行末尾的多余逗号，修复语法错误

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