是否使用Excel宏查找指定的值？

我在B1栏有日期和时间，在D1栏有金额

我需要一个宏来搜索我的工作表中的指定金额，如果找到，请将金额和日期复制到下一个工作表。多次发生

如果包含一个搜索框会更好

谢谢

这是一个代码，我从互联网上发现它工作良好，但在这里它搜索单词“邮箱”，也没有搜索框可用。 子SearchForString（）

执行错误： MsgBox“发生错误。”

---

End Sub

以下是您可以调整的内容：

Sub dural()
    Dim s1 As Worksheet, s2 As Worksheet
    Dim K As Long, N As Long, i As Long
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    K = 1
    s1.Select
    N = Cells(Rows.Count, "B").End(xlUp).Row
    v = Application.InputBox(Prompt:="Enter value", Type:=1)
    For i = 1 To N
        If Cells(i, "D").Value = v Then
            Cells(i, "B").Copy s2.Cells(K, "B")
            Cells(i, "D").Copy s2.Cells(K, "D")
        K = K + 1
        End If
    Next i
End Sub

---

你试过什么了吗？我们可以看到任何代码示例吗？您需要更具体、更清晰！！！到目前为止你试过什么？将给您一个开始。我尝试使用此代码，但搜索值不会复制到下一页

Sub dural()
    Dim s1 As Worksheet, s2 As Worksheet
    Dim K As Long, N As Long, i As Long
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    K = 1
    s1.Select
    N = Cells(Rows.Count, "B").End(xlUp).Row
    v = Application.InputBox(Prompt:="Enter value", Type:=1)
    For i = 1 To N
        If Cells(i, "D").Value = v Then
            Cells(i, "B").Copy s2.Cells(K, "B")
            Cells(i, "D").Copy s2.Cells(K, "D")
        K = K + 1
        End If
    Next i
End Sub