Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7497 / 76732 ←次へ | 前へ→

【74822】別ファイル間でのVLOOKUPの高速処理方法
質問  びゅう  - 13/9/20(金) 20:22 -

引用なし
パスワード
   エクセルマクロでVLOOKUPの使用方法で困っています。

A,BそれぞれのファイルのSheet1同志でVLOOKUPを使用してA列を検索してB列を転記するマクロを作成しましたが、A,Bそれぞれのファイルの行数が20000件近くあり
私が作成したマクロだと時間がかかりすぎて10分近くかかります。

もっと、高速に検索する方法がありましたらどなたか教えて頂けませんか?

私の知識は記録マクロを少し修正して使える程度です。

私のマクロを下記に記します。

ファイルAのSheet1をActivateしてから下記のマクロを実行します。

  Sheets("Sheet1").Select
  Line = 2
  Do Until Cells(Line, 1).Value = ""

  On Error Resume Next
  Cells(Line, 1).Value = Application.WorksheetFunction.VLookup(Cells(Line, 1).Value, Workbooks("B").Worksheets("Sheet1").Range("A2:B60000"), 2, 0)
  On Error GoTo 0
  If Cells(Line, 1).Value = "" Then
  Cells(Line, 1).Value = ""
  End If
  Line = Line + 1
  Loop
0 hits

【74822】別ファイル間でのVLOOKUPの高速処理方法 びゅう 13/9/20(金) 20:22 質問
【74823】Re:別ファイル間でのVLOOKUPの高速処理方法 kanabun 13/9/20(金) 22:13 発言
【74825】Re:別ファイル間でのVLOOKUPの高速処理方法 びゅう 13/9/21(土) 8:20 お礼
【74824】Re:別ファイル間でのVLOOKUPの高速処理方法 kanabun 13/9/20(金) 23:05 発言
【74826】Re:別ファイル間でのVLOOKUPの高速処理方法 びゅう 13/9/21(土) 8:22 お礼
【74827】Re:別ファイル間でのVLOOKUPの高速処理方法 kanabun 13/9/21(土) 18:52 発言
【74829】Re:別ファイル間でのVLOOKUPの高速処理方法 びゅう 13/9/21(土) 21:51 お礼
【74828】Re:別ファイル間でのVLOOKUPの高速処理方法 γ 13/9/21(土) 19:03 発言
【74830】Re:別ファイル間でのVLOOKUPの高速処理方法 びゅう 13/9/21(土) 21:52 お礼

7497 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free