Question

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

所以我在Tab1中有单元格A1，我需要在Tab2的A列中找到它并使其成为活动单元格并选择整行。我该怎么做？

看起来很简单，但出于某种原因，我无法达到这个解决方案。有人可以帮忙吗？谢谢！

Answer 1

在Tab2上找到我们的lastrow值
循环显示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

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

2 个答案: