如何使用vbscript在Excel中查找特定值的行号 [英] How to find the row number of a specific value in Excel using vbscript
问题描述
感谢您的帮助提前!
这是VBA在列中找到test2的第一个实例A的活动表。您可以根据需要调整字符串和工作表。如果整个单元格匹配,则仅计数为匹配项,例如test2222将不匹配。如果你想要,删除, lookat:= xlWhole
位:
Sub FindFirstInstance()
Const WHAT_TO_FIND As String =test2
Dim ws As Excel.Worksheet
Dim FoundCell As Excel.Range
设置ws = ActiveSheet
Set FoundCell = ws.Range(A:A)。Find(what:= WHAT_TO_FIND,lookat:= xlWhole)
如果Not FoundCell不是,然后
MsgBox(WHAT_TO_FIND&
Else
MsgBox(WHAT_TO_FIND¬ found)
End If
End Sub
I have an open Excel file and using VB Script, I need to search only column "A" in the Excel sheet until it matches a text string. When the script finds that match, I would like to see the row number of the cell where the match was found. Thanks for your helps in advance!
This is VBA to find the first instance of "test2" in column A of the activesheet. You can adjust the string and worksheet accord to your needs. It only counts as a match if the whole cell matches, e.g., "test2222" won't match. If you want it to, remove the , lookat:=xlWhole
bit:
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
这篇关于如何使用vbscript在Excel中查找特定值的行号的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!