用于在Excel

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