VBA Excel/搜索和替换下一列中的值双精度变量

Question

我有一种接近的感觉，但我感觉真的很遥远。

我有一张纸叫temp
M2中有一个唯一的标识符，因此我知道需要在另一张表中找到哪一行，该表名为specs
需要将图纸temp的G2值粘贴到搜索值的右侧3列(在图纸specs中(。

我走了这么远，但现在我被卡住了：/

Sub search()
Dim indexnr As String
Dim rngFind As Range, rngLookUp As Range

indexnr = Sheets("temp").Range("m2")
Data = Sheets("temp").Range("g2")

Set rngLookUp = Range("D1:D1000")

Set rngFind = rngLookUp.Find(indexnr, LookIn:=xlValues).Offset(0, 1)
End Sub 

Answer 1

与其使用range.find方法，不如使用For Each Next语句。

range.find方法返回另一个范围对象，该对象不会将值粘贴到单元格内。

试试这样的东西：

For Each i in [D1:D1000] 
tempString = i.value2
if Instr(1,tempString,indexr,0) <> 0 then
i.offset(0,3).value2 = tempString
end if
next i