|
エクセルマクロで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
|
|