VBAマクロ、置き換え、数式

Question

特定のセルをvlookup関数で置き換えようとしています。

Columns("R").Select 
Columns("R").Replace What:="N/A", _ 
         Replacement:="=VLOOKUP(RC[-15], [test.xls]test_data'!$C:$R , 16, FALSE)", _ 
         LookAt:=xlPart, _ 
         SearchOrder:=xlByRows, _ 
         MatchCase:=False, _ 
         SearchFormat:=False, _ 
         ReplaceFormat:=False 

上記の現在のコードは、N/Aをvlookupに置き換えません。それは単にセルを変更しません。

私は「=」括弧で、それは次のようになりますので、削除した場合：

Replacement:="VLOOKUP(RC[-15], [test.xls]test_data'!$C:$R , 16, FALSE)"

これは私の細胞を交換しますが、式の形式にする習慣を。

誰でも手助けできますか？

ありがとう、

Answer 1

Excelで実際に受け入れられない数式にはいくつかの問題があります。あなたは

=VLOOKUP(RC[-15], [test.xls]test_data'!$C:$R , 16, FALSE) 

を使用しようとしているが、その

• は、欠落により引用符に、構文エラーがありますつまり[test.xls]test_data'は'[test.xls]test_data'であるべきであり、
• がR1C1表記（RC[-15]）を混合して、 A1表記（$C:$R）

使用する式はおそらく

=VLOOKUP(RC[-15], '[test.xls]test_data'!C3:C18 , 16, FALSE) 

デフォルトとしてR1C1表記を使用するようにExcelの設定が設定されているのであれば、あなたはおそらく

Columns("R").Select 
Columns("R").Replace What:="N/A", _ 
        Replacement:="=VLOOKUP(RC[-15], '[test.xls]test_data'!C3:C18, 16, FALSE)", _ 
        LookAt:=xlPart, _ 
        SearchOrder:=xlByRows, _ 
        MatchCase:=False, _ 
        SearchFormat:=False, _ 
        ReplaceFormat:=False 

---

を言うためにあなたのコードを意味今、あなたの式への補正は、おそらくですあなたはすべてを変えなければなりません。

しかし、デフォルトでA1表記を使用すると、表記法に関してはC3:C18があいまいであるため、その表記は正しく解釈されません。

だからあなたはおそらく一時的にR1C1表記を使用するようにExcelを設定する必要があります。

Application.ReferenceStyle = xlR1C1 
Columns("R").Select 
Columns("R").Replace What:="N/A", _ 
        Replacement:="=VLOOKUP(RC[-15], '[test.xls]test_data'!C3:C18, 16, FALSE)", _ 
        LookAt:=xlPart, _ 
        SearchOrder:=xlByRows, _ 
        MatchCase:=False, _ 
        SearchFormat:=False, _ 
        ReplaceFormat:=False 
Application.ReferenceStyle = xlA1