Excel VBA使用Find方法查找日期时adres变量为空的原因是什么？

导致adres为空的直接原因 #

你编写的With Worksheets(3).Range("A1:A500")块未生效，块内调用Range("A1:A100")前没有加.，因此代码实际在当前活动工作表的A1:A100区域查找日期，而非预期的第三个工作表，自然找不到匹配值，adres返回空。

其余存在的错误点 #

• 查找范围前后不一致：With块声明的查找范围是第三个工作表的A1:A500，实际写死查找A1:A100，范围不匹配
• Find参数配置缺失：未显式声明LookIn参数，Excel会沿用上次Find操作的参数设置，如果上次设置为查找公式，而第三个工作表的日期是值类型就会查找失败；日期匹配不需要MatchCase参数，该参数仅对文本生效
• 粘贴逻辑不符合需求：你写死粘贴目标为第二个工作表的C1:H5，而非需求要求的「第三个工作表中找到的单元格向右偏移2格的起始位置」
• 死循环风险：Do循环内没有调用FindNext更新adres的值，且循环条件永远为真，找到第一个匹配项后会直接卡死
• 冗余操作：不需要用Select+Selection实现复制，直接调用单元格区域的Copy方法即可，避免激活切换工作表导致的异常

修正后可运行代码 #

Private Sub CommandButton2_Click()
    Dim aranan As Date
    Dim adres As Range
    Dim firstAddress As String
    Dim sourceRng As Range
    
    ' 明确指定第一个工作表取源数据和待查找日期
    With Worksheets(1)
        aranan = .Range("B1").Value
        Set sourceRng = .Range("B2:G6")
    End With
    
    ' 明确在第三个工作表的A1:A500区域查找
    With Worksheets(3).Range("A1:A500")
        Set adres = .Find(What:=aranan, LookIn:=xlValues, LookAt:=xlWhole)
        If Not adres Is Nothing Then
            firstAddress = adres.Address
            Do
                ' 粘贴到找到的单元格向右偏移2格的起始位置
                sourceRng.Copy Destination:=adres.Offset(0, 2)
                ' 查找下一个匹配项
                Set adres = .FindNext(adres)
            Loop While Not adres Is Nothing And adres.Address <> firstAddress
        End If
    End With
    
    ' 清除剪切板缓存
    Application.CutCopyMode = False
End Sub

内容的提问来源于stack exchange，提问作者Selçuk Altınay