VBA条件查找数据，然后返回数据某一列的值到另一表的单元格。

Question

表1

表2

查找表1宝贝ID为“6135587583”的行，返回其D列的宝贝页访客数的值到表2的D7单元格。

麻烦大神编写VBA代码，谢谢！！！！！！！！

Answer 1

代码放到表2中，

Sub 查找()
Dim Rng As Range
Set Rng = Worksheets("sheet1").Columns("A").Find("6135587583", LOOKAT:=xlWhole)
If Rng Is Nothing Then
MsgBox "没有找到该项目"
Else
Range("D7").Value = Rng.Offset(0, 3).Value
End If
End Sub本回答被提问者采纳

Answer 2

Sub ABC()
r = [A65536].End(3).Row
a = "6135587583"
For i = 1 To r
If Cells(i, 1) = Val(a) Then Sheet2.Range("d7") = Sheet1.Cells(i, 4): Exit Sub
Next
MsgBox "没有找到" & a
End Sub