使用多个单元格从另一张纸中搜索数据吗？

Question

我的工作簿中有两张纸。第一个应该显示第二个工作表中包含大量数据的数据。

[我在显示表上放置了一个宏按钮，如果在引用的单元格中输入特定值，然后单击该按钮，它将显示数据表中具有该值的所有行。

问题是我只能搜索一个值以显示，但我想使用另外两个单元格来放置其他值，例如使用条件，具体来说就是日期持续时间。

单元格1 ...名称，单元格2 ...开始日期，单元格3 ...结束日期

单击按钮后，应显示数据表中具有特定名称，第二个单元格中的日期和第三个单元格中的日期的值的所有行。

这是我当前正在使用的代码，

Sub SearchMultipleValues()
Dim eRow As Long  
Dim ws As Worksheet
Dim lastrow As Long
Dim count As Integer

lastrow = Sheets("DATA").Cells(Rows.count, 1).End(xlUp).Row
Sheet2.Range("A5:L1048569").ClearContents

count = 0

Dim p As Long
p = 2

For X = 2 To lastrow

    If Sheets("DATA").Cells(X, 1) = Sheet2.Range("A1") Then

        Sheet1.Cells(p, 1) = Sheets("Sheet2").Cells(X, 1)
        Sheet1.Cells(p, 2) = Sheets("Sheet2").Cells(X, 2)
        Sheet1.Cells(p, 3) = Sheets("Sheet2").Cells(X, 3)
        Sheet1.Cells(p, 4) = Sheets("Sheet2").Cells(X, 4)
        Sheet1Cells(p, 5) = Sheets("Sheet2").Cells(X, 5)
        Sheet1.Cells(p, 6) = Sheets("Sheet2").Cells(X, 6)
        Sheet1.Cells(p, 7) = Sheets("Sheet2").Cells(X, 7)
        Sheet1.Cells(p, 8) = Sheets("Sheet2").Cells(X, 8)
        Sheet1.Cells(p, 9) = Sheets("Sheet2").Cells(X, 9)
        Sheet1.Cells(p, 10) = Sheets("Sheet2").Cells(X, 10)
        Sheet1.Cells(p, 11) = Sheets("Sheet2").Cells(X, 11)
        Sheet1.Cells(p, 12) = Sheets("Sheet2").Cells(X, 12)
        p = p + 1
        count = count + 1

    End If

Next X

MsgBox " The number of item found is " & " " & count

End Sub

单元格A1是我要在数据表“ Sheet2”中的“ Sheet1”中显示要显示的值的位置。现在，我想将单元格A2和A3作为附加值包括在数据表的单元格A1中。

我的工作簿中有两张纸。第一个应该显示第二个工作表中的数据，该数据具有很多数据。我在显示页上放置了一个宏按钮，如果我输入特定的值...