Excel VBA搜索和打印功能

Question

我正在尝试对“搜索”按钮进行编程，以浏览所有数据，返回具有通用编号和所有日期（即9列数据）的所有行，然后填充并打印此数据表。代码不断给我带来错误，感谢您的帮助。

Dim erow As Long
Dim ws As Worksheet
Dim Lastrow As Long
Dim count As Integer


With Worksheets("DataSheet")
Lastrow = .Cells(.Rows.count, 1).End(x1Up).Row

For x = 1 To Lastrow

If Sheets("DataSheet").Cells(x, 1) = SearchSheet.Range("B4") Then
SearchSheet.Range("A12") = Sheets("DataSheet").Cells(x, 1)
SearchSheet.Range("B12") = Sheets("DataSheet").Cells(x, 2)
SearchSheet.Range("C12") = Sheets("DataSheet").Cells(x, 3)
SearchSheet.Range("D12") = Sheets("DataSheet").Cells(x, 4)
SearchSheet.Range("E12") = Sheets("DataSheet").Cells(x, 5)
SearchSheet.Range("F12") = Sheets("DataSheet").Cells(x, 6)
SearchSheet.Range("G12") = Sheets("DataSheet").Cells(x, 7)
SearchSheet.Range("H12") = Sheets("DataSheet").Cells(x, 8)
SearchSheet.Range("I12") = Sheets("DataSheet").Cells(x, 9)
End If

Next x

End With

Answer 1

很难看到1和L之间的差异，但是x1Up应该是xlUp。所有结果都被写入同一行12，您需要使用一个递增计数器。