VBA-从列表中查找单元格（列）

Question

第一次在这里问一个问题。 即使我确定答案已经存在，也很难找到答案，但希望您能为我提供帮助。

因此，我需要在Tab1的A列中找到Tab1中的单元格A1，并将其设为活动单元格并选择整行。 我怎么做？

看起来很简单，但是由于某种原因，我无法使用此解决方案。 有人可以帮忙吗？ 谢谢！

Answer 1

1. 在Tab2上找到我们的lastrow值
2. 遍历Tab2的A列中的所有单元格值。 如果这些单元格值之一等于Tab1上A1中的值，请激活Tab2（如果尚未激活）并选择整行。

Sub Test()

lastrow = Worksheets("Tab2").Cells(Worksheets("Tab2").Rows.Count, "A").End(xlUp).Row

For i = 1 To lastrow
    If Worksheets("Tab2").Range("A" & i).Value = Worksheets("Tab1").Range("A1").Value Then
        Worksheets("Tab2").Activate
        Worksheets("Tab2").Rows(i).EntireRow.Select
        Exit For
    End If
Next i

End Sub

编辑：这种编号的列表格式让我头疼...

Answer 2

你可以试试这个

Sub Test()
    Dim found As Range
    With Worksheets("Tab2")
        Set found = .Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Find(What:=Worksheets("Tab1").Range("A1").Value, LookIn:=xlValues, lookAt:=xlWhole)
        If Not found Is Nothing Then
            .Activate
            found.EntireRow.Select
        End If
    End With
End Sub