Question

VBA Excel如何在工作表区域内查找某个值，发回这个值所在的行号、列号

用VBA代码编写，如何在工作表区域内查找某个值，发回这个值所在的行号、列号

Answer 1

Sub 查找()
For Each rng In Range("a1:d3")
    If rng = 7 Then
        a = rng.Row
        b = rng.Column
    End If
Next
MsgBox "行号为" & a & "-" & "列号为" & b
End Sub

追问

rng是什么意思啊？

追答

rng在代码中与一般字母比如a、b、c一样，没有特别的意思，只是用来表示a1:d3区域中的独个单元格。

追问

能留你的qq吗

追答

头像中有

Answer 2

Sub aa()
Dim a As Range
For Each a In Range("A1:D3")
If a.Value = 7 Then
MsgBox "a=" & a.Row & " , b=" & a.Column
End If
Next
End Sub