在 Excel 中显示多行的 VBA 代码

Question

我想在使用 VBA 代码创建的 Excel 工作表中显示多行同名。 我在 Excel 工作表 1 中创建了一个文本框，当我在文本框中输入名称并单击搜索按钮时，我希望同一个人的多行显示在 Excel 工作表 3 中。

代码：我创建了名为“List”的 Excel 工作表，其中的数据为

NAME     CITY

LAKHA   LONDON
KIKI    US
LAKHA   US

我这里有一个代码。

Sub finddata()

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

lastrow = Sheets("List").Cells(Rows.count, 1).End(xlUp).Row

For x = 2 To lastrow
If Sheets("List").Cells(x, 1) = Sheet1.Range("E7") Then
Sheet3.Range("A2") = Sheets("List").Cells(x, 1)
Sheet3.Range("B2") = Sheets("List").Cells(x, 2)

End If

Next x

End Sub

Sub printdata()

Sheet3.Range("A1:B2").PrintPreview
'Sheet3.Range("A1:B2").PrintOut
End Sub

Sub Clear_Cells()

Sheets("Sheet3").Range("A2:B2").ClearContents
Sheets("Sheet1").Range("E7:E7").ClearContents

End Sub

但这一次只显示一行。

Answer 1

你也应该在单元格或范围引用后使用 .value ，即

Sheet3.Range("A2").value = Sheets("List").Cells(x, 1).value