R1C1で記録されたVLookUp式をA1参照を使用してVBA式に変換する

Question

私はプレーンなVBAマクロコードに変換し、式をからlastrowにコピーするこの記録済みマクロを持っています。

"=VLOOKUP(RC[-22],'[test.xlsx]Sheet3'!C5:C6,2,0)" ' this is from another workbook 

VBAに変換しようとしています。

dim wbSLW as workbook 
dim wbSLWDir as String 

wbSLWDir = "C\Documents\test.xlsx" 'this is not the constant directory or file name 
set wbSLW = workbooks.open(wbSLWDir) 

ThisWorkbook.Activate 
With Thisworkbook.Sheets(1) 
    .Range("AE2") = "=VLOOKUP(I2," & wbSLW & "!E:F,2,0)" ' error line 
end with 

私が変換したら、Object does not support this property or methodを返します。

Answer 1

クリーン記録されたコード：そう、RC[-22] = I2

初期セル

With ActiveSheet.Range("AE2") 
    .FormulaR1C1 = "=VLOOKUP(RC[-22],Temp!C[-30]:C[-29],2,0)" 
    .AutoFill Destination:=Range("AE2:AE182"), Type:=xlFillDefault 
End With 'ActiveSheet 

---

RC[-22]は22列あなたがここにAE2を式
を持っていたセルの前にあるセルを指しています

C[-30]およびC[-29]はそれぞれ、formulを持つセルの前の30および29列の列を指します
ここ AE2のでC[-30] = AとC[-29] = B

変更式：

Sheets(1).Range(perNum & 2).Formula = "=VLOOKUP(I2,Temp!A:B,2,0)" 

又は式変換なし：アクティブなシート名があると仮定すると

Sheets(1).Range(perNum & 2).FormulaR1C1 = "=VLOOKUP(RC[-22],Temp!C[-30]:C[-29],2,0)" 

Answer 2

をSheet1

ActiveCell.Value = Application.WorksheetFunction.VLookup(Sheets("Sheet1").Range("I2"), Sheets("Temp").Range("A:B"), 2, 0) 

Answer 3

（Excel 2010）の[設定/数式]に移動し、R1C1参照スタイルのチェックを外して、R1C1形式を使用しないように設定を変更します。マクロを再入力して編集します。あなたは "RC"の参照を持つべきではありませんが、そうするならば、 "RC"を持つすべての参照を "I2"と同じスタイルに変更してください。