右のシートを参照」という検索キーワードで、このサイト『インストラクターのネタ帳』へアクセスがありました。VBAで、WorksheetFunctionオブジェクトのVlookupメソッドを使って、一番右・最後尾のワークシートからデータを取得するには、どのようなコードを書けばいいのかを探していた方による検索でしょうか。[スポンサードリンク]先頭のワークシートからVlookupするサンプルマクロまずは簡単な、一番左・先頭のワークシートからVlookupするコードを理解しましょう。下図のようにWorksheetFunction.Vlookupメソッドで参照するワークシートが、一番左にある状態で、アクティブシートのA1セルにキーが入力されているときに、以下のSubプロシージャを実行すると、A1セルに入力されているキーを、先頭のワークシートで調べて該当する値がB1セルに入力されます。SubWorksheetFunctionオブジェクトのVlookupメソッドで、第2引数を別シート上のセル範囲を参照するよう指定すれば、別のシートからVlookupできます。False)一番左・先頭のワークシートを参照する式にすれば、一番左・先頭のワークシートからVlookupできます。Worksheets(1).Range("A1:B7")です。最後尾のワークシートからVlookupするサンプルマクロ上述の、Worksheetsプロパティの引数(実際にはWorksheetsコレクションの既定プロパティの引数、もっと厳密にいうならWorksheetを単独のオブジェクトとして持つSheetsコレクションの既定プロパティの引数)「1」を、ワークシート総数にした「Worksheets(ワークシート総数)」という式にすれば、一番右・最後尾のワークシートを取得できます。SubWorksheetsコレクションのCountプロパティで、ワークシートの総数を取得できます。オブジェクト式「Worksheets(Worksheets.Count)」で、一番右・最後尾のワークシートを表すオブジェクトを取得できます。Worksheets(Worksheets.Count).Nameを実行すれば、一番右・最後尾のワークシートの名前がメッセージボックスに表示されます。Worksheets(Worksheets.Count).Range("A1:B7")です。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。