マクロのオートフィル数式が変更されているのはなぜですか？

Question

マクロから数式を自動入力するために、以下のソリューションを使用しました。私は、次のコード片作成この例で使用

Sub FillData() 
Dim rng1 As Range 
Set rng1 = Range([a1], [a1].End(xlDown)) 
If Not (rng1.Rows.Count = Rows.Count And Len([a1].Value) = 0) Then rng1.Offset(0, 3).FormulaR1C1 = "=RC2" 
End Sub 

：

enter link description here

次の行に対して呼び出さコード

If Not (rng1.Rows.Count = Rows.Count And Len([a1].Value) = 0) Then rng1.Offset(1, 4).FormulaR1C1 = "=VLOOKUP(RC1,'My Excel Tab name'!A:D,4,FALSE)" 

がしかし細胞で終わる式A：DのDのまわりに角カッコがあり、次のようになります。

=VLOOKUP($A3,'SubstationsPJM-New'!A:(D),4,FALSE) 

私はここで何が間違っていますか？ ありがとう

Answer 1

あなたの数式にR1C1の参照は使用されていません。

あなたが 'My Excel Tab name'!C1:C4（列1〜4）になり R1C1同等で 'My Excel Tab name'!A:Dを交換する必要が

ので、あなたの式は次のようになります。あなたがしている場合

"=VLOOKUP(RC1,'My Excel Tab name'!C1:C4,4,FALSE)"