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