VBA查找值表复制公式

Question

我已经有两列的查找表。第1列是一个固定的项目列表，第2列中有一个公式。

在另一个表，当有人在发言权单元格A1输入数据和它的项目在我的查找表的第1列匹配我需要从复制并粘贴到单元格B2塔2相应的公式。

大量的谷歌搜索试图找到VLOOKUP复制公式代替单元格值的方式没有返回任何内容，所以我认为唯一的方法是通过VBA？

Answer 1

该小样本假定数据是在C列和d：

Sub Matt() 
    Dim r As Range, Tabl As Range 
    Set Tabl = Range("C1:C1000") 
    Set r = Tabl.Find(What:=Range("A1").Value, After:=Tabl(1)) 
    Range("B1").Formula = r.Offset(0, 1).Formula 
End Sub 

发生在A1的值和运行宏

EDIT＃1：

这个版本将循环落笔列一个

Sub Matt_The_Sequel() 
    Dim r As Range, Tabl As Range, N As Long 
    Set Tabl = Range("C1:C1000") 
    N = Cells(Rows.Count, "A").End(xlUp).Row 
    For i = 1 To N 
     Set r = Tabl.Find(What:=Range("A" & i).Value, After:=Tabl(1)) 
     Range("B" & i).Formula = r.Offset(0, 1).Formula 
    Next i 
End Sub 

编辑＃2：

Sub Matt_The_Sequel2() 
    Dim r As Range, Tabl As Range, N As Long 
    Dim First_Row As Long 
    Set Tabl = Range("C1:C1000") 
    N = Cells(Rows.Count, "A").End(xlUp).Row 

    First_Row = 4 


    For i = First_Row To N 
     Set r = Tabl.Find(What:=Range("A" & i).Value, After:=Tabl(1)) 
     Range("B" & i).Formula = r.Offset(0, 1).Formula 
    Next i 
End Sub