Question

VBA怎么实现向VLOOKUP一样查找

VBA怎么实现向VLOOKUP一样查找
或怎样设一个变量如i，i=指定内容所在的行

Answer 1

Sub iVlookUP()
    For i = 2 To 8      'A列从第2到第8行
        For j = 2 To 8  'E列从第2到第8行
            If Cells(j, "E") = Cells(i, "A") Then   '如果在E列找到与A列中要查的值相符的
                Cells(i, "B") = Cells(j, "F")       '取对应F列的值
                Exit For
            End If
        Next
    Next
End Sub

追问

谢谢您！
请问
如何把表一“A2 "单元格内容，在表二b列的行数声明一个变量

追答

不明白你什么意思？是找到匹配的内容后，记录所在行号？

追问

就是把他所在的行号作为一个变量吧
比如我做商品入库，我在表一A2中输入商品名称，B2输入数量，点击按钮就能在表二中相同的商品后面的数量上加上表一中新入库的数量

追答

If Cells(j, "E") = Cells(i, "A") Then '这里的 j 就是匹配的行号，利用这个定位找到的商品所在行，就能改变数量。

Answer 2

给你个例子，统计表Sheet1中A到F列所有单元格值等于表Sheet2中A1单元格的值的数量，并保持到A2单元格。

dim r %,i%,j%,m%
With Sheets("Sheet1")
r=.Range("A1:F65535").end(xlup).row //假设你的数据表用的A到F，用r获取最大行数
m=0
for i=1 to r
for j=1 to 6 //上面假设你的数据只用到F列
If Trim(.Cells(i, j).Value)=Sheets("Sheet2").Cells(1,1) then
m=m+1
next j
next i
Sheets("Sheet2").Cells(1,2)=m
End With

Answer 3

Range("a3").EntireRow

 EntireRow 就是指定内容所在的行！

这个指定内容必须是Range对象

如上面的Range（“a3”）

这个EntireRow 返回的行也是一个Range对象

追问

大概是您的这个意思，如果进一步设定，指定内容是表1的a2，返回a2内容在表二中所在的行号
代码怎么写啊

追答

加QQ55540138把文件给我

给你详细解答

等了你半天你也没有加，大概按照上面你向别人提问的思路

做了个模型，看看适不适合你

我放在附件里了你可以下下来看看