嘿，我来帮你搞定这个VBA问题！你遇到的“对象变量或With块变量未设置”错误，核心原因大概率是.Find方法没找到匹配的目标日期，返回了Nothing，但你后续直接对这个未赋值的空对象执行操作，就触发了报错。另外日期在Excel里是特殊的数值类型，很容易因为数据类型、格式不匹配导致查找失败，下面给你一步步的解决办法：

一、先确保日期数据类型匹配 #

组合框（date1_cbo）里的内容可能是文本格式，而单元格中的日期实际是存储为数值的日期类型，两者不匹配就会找不到结果。所以第一步要把用户选择/输入的内容转换成标准日期类型，同时做有效性校验：

Dim targetDate As Date
Dim newDate As Date

' 验证并转换目标日期（组合框选择的）
If IsDate(date1_cbo.Value) Then
    targetDate = CDate(date1_cbo.Value)
Else
    MsgBox "请选择有效的目标日期！"
    Exit Sub
End If

' 验证并转换新日期（文本框输入的）
If IsDate(date1_txt.Value) Then
    newDate = CDate(date1_txt.Value)
Else
    MsgBox "请输入有效的新日期！"
    Exit Sub
End If

二、正确使用.Find方法，先判断是否找到结果 #

一定要先检查.Find返回的对象是否不为空，再进行后续操作。同时查找日期时，建议指定LookIn:=xlValues参数，避免因单元格显示格式和实际存储值不一致导致查找失败：

Dim ws As Worksheet
Dim foundCell As Range

' 指定要操作的工作表（这里假设是Backend）
Set ws = ThisWorkbook.Worksheets("Backend")

' 执行查找，明确参数避免歧义
Set foundCell = ws.Cells.Find(What:=targetDate, _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, ' 精确匹配整个单元格内容
                            MatchCase:=False)

' 检查是否找到匹配项
If Not foundCell Is Nothing Then
    ' 替换找到的日期
    foundCell.Value = newDate
    MsgBox "日期替换成功！"
Else
    MsgBox "未找到目标日期，请检查选择的日期是否正确！"
End If

三、如果需要批量替换所有匹配的日期 #

如果你要替换工作表中所有和目标日期相同的单元格，可以用FindNext循环来实现，避免只替换第一个匹配项：

Dim firstFoundAddress As String

If Not foundCell Is Nothing Then
    firstFoundAddress = foundCell.Address ' 记录第一个找到的单元格地址，避免无限循环
    Do
        foundCell.Value = newDate
        ' 查找下一个匹配项
        Set foundCell = ws.Cells.FindNext(foundCell)
    ' 循环直到找不到新的匹配项，或者回到第一个找到的单元格
    Loop While Not foundCell Is Nothing And foundCell.Address <> firstFoundAddress
    MsgBox "所有匹配的日期已替换完成！"
Else
    MsgBox "未找到目标日期，请检查选择的日期是否正确！"
End If

额外注意事项 #

• 确保Backend工作表中的日期是真正的日期格式，而不是文本格式。你可以选中日期单元格，查看编辑栏：文本格式的日期编辑栏显示内容和单元格一致，日期格式的编辑栏会显示系统标准的日期格式（比如2024/5/20）。如果是文本格式，先把它转换成日期格式再查找。
• 组合框的数据源如果绑定Backend的日期列，建议直接绑定日期值，避免自动转成文本。可以在用户窗体初始化时添加这段代码：

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Backend")
    ' 假设日期存储在A2:A100区域，根据你的实际情况修改
    date1_cbo.RowSource = ws.Range("A2:A100").Address
    date1_cbo.ColumnCount = 1
    date1_cbo.BoundColumn = 1
End Sub

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