Vlookupを変数を用いて使いたい

Question

■実現したいこと
（参照先）ExcelVBAを使い参照先のシートから数値を拾いたいです。（範囲はB列4行～C列最終行までです）
（参照→入力先）数値入力先は「集計表」シートでC列3行目からC列最終行までです。VlookupのキーはB列から取得します。

■可変なデータ
①参照先のシート名「果物（←固定）＋月次（←可変）」
②参照先シート（果物＋月次）の最終行
③参照先から数値をvlookupにより拾って入力するシート（集計表シート）の最終行

■試したこと（下記のコー作成作成）
Dim 元データLast_Row, Last_Row As Long
Dim str_Getuji As String
Dim ws As Worksheet

Sub 実行()

Dim str_Getuji  As String
str_Getuji = InputBox("月次を入力して下さい。")

Set ws = ThisWorkbook.Worksheets("果物" & str_Getuji)
'MsgBox ("ws.Nameは：" & ws.Name)

Sheets("果物" & str_Getuji).Select
'最終行取得B列
元データLast_Row = Cells(Rows.Count, 2).End(xlUp).Row
'MsgBox ("元データLast_Rowは：" & 元データLast_Row)

　　'最終行取得B列
Sheets("集計表").Select
Last_Row = Cells(Rows.Count, 2).End(xlUp).Row

For i = 3 To Last_Row

'【不明点】###############################################################################
Cells(i, 3).Formula = "=VLookup(B" & i & ", ws.Name!B4:C" & 元データLast_Row & , 2, False)"
'###############################################################################
Next

End Sub

上記のコードを作成しましたが、【不明点】で囲った文が文法的に正しくなく、
そもそもVBA自体を実行できません。
誠に恐れ入りますが、対応方法をご教授頂きたく何卒宜しくお願い致します。

Answer 1

下記のように修正すると文法エラーはなくなるでしょう。

- Cells(i, 3).Formula = "=VLookup(B" & i & ", ws.Name!B4:C" & 元データLast_Row & , 2, False)"
+  Cells(i, 3).Formula = "=VLookup(B" & i & ", ws.Name!B4:C" & 元データLast_Row & ", 2, False)"

引用符を一つ追加します。
これだけでは値は表示されないので、ws.Name を""の外にだします。""内だとただの文字列。

Cells(i, 3).Formula = "=VLookup(B" & i & ", " & ws.Name & "!B4:C" & 元データLast_Row & ", 2, False)"

おまけ

For i = 3 To Last_Row
    Cells(i, 3).Formula = "=VLookup(B" & i & ", " & ws.Name & "!B4:C" & 元データLast_Row & ", 2, False)"
Next

というようにループしなくても、セル範囲に一気に式を設定することもできます。（こちらの方が高速）

Range(Cells(i, 3), Cells(i, Last_Row)).Formula = "=VLookup(B3, " & ws.Name & "!#B#4:#C#" & 元データLast_Row & ", 2, False)"

先頭セルに式を設定して、フィルドラッグで式をコピーするのと同じ意味になります。

Comments

[bigginer]

引用符の範囲設定でいつも分らなくなり、何時間もエラー回避できなくなってしまいます。
ご丁寧にコードを教えて頂きまして誠に有難うございました。無事に解決致しました。

[bigginer]

処理スピードを考慮したコードまでご教授して頂きまして誠に有難うございました。
上記コードにつきましても参考にさせて頂き、編集して実行することができました。

Answer 2

変数名 = Application.WorksheetFunction.VLookup(関数式)