初心者です。下記プロシージャで数字をキーにして同じbook内のsheetから別のsheetにデータを移そうとしましたが、「実行時エラー ‘1004’ WorksheetFunctionクラスのVLookupプロパティを取得できません。」と出てしまいます。なのが原因かお教えいただけないでしょうか。
------------------------------------------------------------------
Sub データ集計()
Application.ScreenUpdating = False
Dim i As Long
With Sheets("集計")
For i = 138 To Cells(Rows.Count, 1).End(xlUp).Row
.Cells(i, 146) = WorksheetFunction.VLookup(.Cells(i, 1), ThisWorkbook.Sheets("データ").Range("A:D"), 146, 0)
Next
End With
End Sub
------------------------------------------------------------------
よろしくお願いいたします。
No.3
- 回答日時:
No1です。
>4列目でも同じエラーが出てしまうのです。
すでにNo2様が回答なさっていますが、検索値が対象範囲に存在しない場合には、関数として結果がエラーになります。
そちらが発生しているのではないでしょうか?
まずは、検索できる値で試してみては?
すごく早い回答をいただきありがとうございました。作業で詰まっているときには大変ありがたいです。本当に感謝しているのですが、もうお一方にcells(i,1)…と明示していただき解決につながりましたのでもう一方の方をベストアンサーとさせていただきました。でも本当にありがたかったです。
No.1
- 回答日時:
こんにちは
VLOOKUP関数の第三引数は、何番目の列の値を参照するかを示します。
A:D列は4列しかないのに、146番目の列を指定しているので、エラーになっているものと推測します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) ExcelVBAで、index、match関数を使用して、指定範囲に出力したい 3 2022/10/18 21:53
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBA 罫線について B列3行目から21行毎にデータがはいります。 データがはいったらデータが入った 6 2022/11/15 17:22
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
excel vbaでvlooupの変数がわかりません。
Visual Basic(VBA)
-
-
4
マクロ 関数を使った抽出でエラーになってしまう
Visual Basic(VBA)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
7
【Excel VBA】先頭の「0」飛びを埋める方法
Visual Basic(VBA)
-
8
フォントの大きさ
Visual Basic(VBA)
-
9
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
10
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
11
スクロールしてもボタンを常に表示させたい。Excel2002
Excel(エクセル)
-
12
別のシートから値を取得するとき
Visual Basic(VBA)
-
13
VBA たまに変数がempty値になるエラー
Excel(エクセル)
-
14
VBAで、セル(Range)のオブジェクトが取得できない
Excel(エクセル)
-
15
Findプロパティを取得できません
Visual Basic(VBA)
-
16
エクセルで数式を入れても値が空欄になります
Excel(エクセル)
-
17
ExcelのVlookup関数で一致した文字のセルの番地を取得する方法
その他(Microsoft Office)
-
18
VBA 値と一致した行の一部の列のデータを転記について教えてください
Visual Basic(VBA)
-
19
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
20
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
実行時エラー3001「引数が間違...
-
ExcelVBA Range クラスの Page...
-
なぜこんな初歩的なVBAのIf文で...
-
ACCESSのエラーで困っています
-
VBAがブレークモードになっ...
-
Application.ActiveInspectorで...
-
職場から目的地までの距離集計
-
VBS実行時エラー オブジェクト...
-
DataGridView からの値取得に関...
-
Excel2019 ワークシートのコピ...
-
VB6+SQL サーバー 2000 で 実行...
-
Outlook.ApplicationをCreateOb...
-
VBAでのエラー
-
ASP.NET OleDbConnectionが定義...
-
Access マクロでのテーブル削除
-
一般ODBCエラーについて
-
日本語環境下で作成したマクロ...
-
【Excel VBA】マクロをボタンに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
VBAでのエラー
-
マクロについて教えてください...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAがブレークモードになっ...
-
実行時エラー3001「引数が間違...
-
ExcelVBA Range クラスの Page...
-
VBS実行時エラー オブジェクト...
-
EXCEL VBAマクロ中断でデバッグ...
-
Outlook.ApplicationをCreateOb...
-
VBSで変数の宣言はできないので...
-
VBAのコードがエラーになっ...
-
実行時エラー -'-2147417848
-
ADODB.Streamを使用してUTF-8を...
-
EXCEL/VBAで、自分のPCだけエラ...
-
OLEDB.NETで接続できない
-
プロシージャ名の取得
-
VB6+SQL サーバー 2000 で 実行...
おすすめ情報
ご回答ありがとうございます。4列目でも同じエラーが出てしまうのです。