急 急 急 =VLOOKUP($A6,法人買賣!A1:C200,3,FALSE) 請教諸位大大 VLOOKUP 函數在巨集內使用時， $A6 與 A1:C200 希望用變數，要如何寫 謝謝?

http://blog.xuite.net/hcm19522/twblog/484035969

Sub 巨集1()
For i = 6 To [A65536].End(3).Row
Range("B" & i).FormulaR1C1 = "=VLOOKUP(RC[-1],法人買賣!R1C1:R200C3,3,0)"
Next
End Sub

Sub test2()
Dim Rng As Range
Dim Cb As Variant
Dim Ca As String
Set Rng = Sheets("法人買賣").[A:C]
For i = 6 To [A65536].End(3).Row
Ca = Cells(i, 1)
Cb = Application.VLookup(Ca, Rng, 3, 0)
If Not IsError(Cb) Then
Cells(i, 2) = Cb
Else
Cells(i, 2) = ""
End If
Next
End Sub