VBA vlookup 検索範囲に変数指定

質問

仕事で必要となり、初めてVBAを組んでおります。行き詰まってしまい、ご相談です。

「マクロ実行.xls」にある、ボタン「実行」をクリックすると、当月データに過去データをvlookupにて貼り付けるよう組んでおります。ただ、肝心なVLOOKUPが結果を出してくれません。
検索範囲の設定と変数の関係だと思いますが・・。

'使用量（月間）.txtを６つ開く
Dim i As Integer
Dim a0 As String
Dim a As String
Dim a1 As String
Dim a2 As String

For i = 0 To 5
a0 = Format(Now, "yyyy/mm ")
a = DateAdd("m", -i, a0)
a1 = Format(a, "使用量" & "yyyy" & "." & "mm") & ".txt"
a2 = Format(a, "使用量" & "yyyy" & "." & "mm")

'使用量(月間).txt、の場所
Dim b1 As String
b1 = Application.Workbooks("実行マクロ.xls").Path & "\データ\＊＊＊＊＊＊＊＊＊＊＊＊\"

'使用量（月間）.txtを開く(１４配列)
省略

'月間データの編集：最終行の取得
Dim lngCount3 As Long
lngCount3 = Workbooks(a1).Worksheets(a2).UsedRange.Rows.Count

途中省略

'現在一覧.txtと月間データのVLOOKUP
Workbooks("現在一覧.txt").Worksheets("現在一覧").Activate

Range(Cells(2, 20), Cells(lngCount3, 20)).FormulaR1C1 = "=vlookup(RC[-18],[workbooks(a1)]worksheets(a2)!R2C2:R&lngCount3&C2,5,0)"
↑ここが問題です。
next

for~NEXT内でvlookupを使用する事が出来ないのか・・。
検索範囲の設定をどのように書くのか・・。
ご教授頂けると幸いです。

回答No.2

keithin · ベストアンサー

正しい"数式文字列"を，文字列計算で計算しないといけません。
また今のマクロで書かそうとしている数式自体にも間違いがあります。

Range("T2:T" & lngCount3).Formula = "=vlookup(B2,'[" & a1 & "]" & a2 & "'!$B$2:$F$" & lngCount3 & ",5,FALSE)"

お礼

ご指摘頂き、有り難うございます。

もう、何が間違っていて、合っているのかも解らずになっております。

試してみます！！

回答No.1

mshr1962

数式の変数部分まで""で囲っては駄目でしょうね。
"=vlookup(RC[-18],[workbooks(a1)]worksheets(a2)!R2C2:R&lngCount3&C2,5,0)"
↓
"=vlookup(RC[-18],[" & workbooks(a1) & "]" & worksheets(a2) & "!R2C2:R" & lngCount3 & "C2,5,0)"

お礼

早速のご回答有り難うございます！

試してみます！！