如何使用vbscript在Excel中查找特定值的行号

Question

我有一个打开的Excel文件并使用VB脚本,我只需要在Excel工作表中搜索列"A",直到它与文本字符串匹配.当脚本找到匹配项时,我希望看到找到匹配项的单元格的行号.感谢您的帮助!

Answer 1

这是VBA在活动表的A列中找到"test2"的第一个实例.您可以根据需要调整字符串和工作表.如果整个单元格匹配,它仅计为匹配,例如,"test2222"将不匹配.如果你想要它,删除,lookat:=xlWhole位:

Sub FindFirstInstance()
Const WHAT_TO_FIND As String = "test2"
Dim ws As Excel.Worksheet
Dim FoundCell As Excel.Range

Set ws = ActiveSheet
Set FoundCell = ws.Range("A:A").Find(what:=WHAT_TO_FIND, lookat:=xlWhole)
If Not FoundCell Is Nothing Then
    MsgBox (WHAT_TO_FIND & " found in row: " & FoundCell.Row)
Else
    MsgBox (WHAT_TO_FIND & " not found")
End If
End Sub