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

Posted 2023-05-09

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

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吗

追答

头像中有

参考技术A 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

excel匹配相同ID不同对应数据？

请问大家如何匹配相同ID的不同数据，比如说图1输入AABB的名称，下拉后自动匹配图2对应数值的公司名称，vlookup函数只能匹配一项，因为数据不是一一对应的，请问公式要如何设置

操作步骤如下，在一个表中录入数据，一个表中查找某个满足条件的值

数据区域

上图为数据区域

查询区域

在查询区域内B2单元格内输入公式

=INDEX(数据区域!$B$2:$B$18,SMALL(IF(数据区域!$A$2:$A$18=$A$2,ROW(数据区域!$B$2:$B$18),4^8),ROW(A1)))&""

此时不是直接确定，切记，一定要按下三键（Ctrl+Shift+Enter）调出数组公式，上图中的花括号不是敲出来的，而是用三键确认之后出来的，这是数组公式特有性质，必须这么操作

之后就将B2向下拉，直到出现#REF!，表示所有的都已经查询完毕

参考技术A 2021版，在B2中输入或复制粘贴下列公式
=FILTER(SHEET1!B:B,SHEET1!A:A=A2)
下拉填充