如何用EXCEL VBA 寫一個自動用VLOOKUP語法去帶出相對應的值?

Sub test()
Dim Rwa As Variant
Dim Rng As Range
Dim i As Long
Dim Rnga As String
Set Rng = Sheets("金額").[A:B]
For i = 2 To [A65536].End(3).Row
Rnga = Cells(i, 1)
Rwa = Application.VLookup(Rnga, Rng, 2, 0)
If Not IsError(Rwa) Then
Cells(i, 3) = Rwa
Else
Cells(i, 3) = ""
End If
Next
End Sub

重新加入公式
Sub 加入公式()
For i = 2 To [A65536].End(3).Row
Cells(i, 3).FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-2],金額!C1:C2,2,0),"""")"
Next
End Sub

可以 隱藏 公式
或者將 函數 寫入 VBA 中
不過還是看得到= ="