|
皆様教えてください。
シート“売上データ”の1列目に日付順に顧客番号、2列目に地区コード欄があります。
シート“顧客リスト”の1列目に顧客番号、2列目に地区コードがあります。
顧客番号をキーに、シート“売上データ”の地区コード欄に、シート“顧客リスト”の地区コードを転記したいのですが、
Dim Uridata As Variant
Dim KykData As Variant
Set WS1=Sheets("売上データ")
Set WS2=Sheets("顧客リスト")
Uridata = WS1.Range(WS1.Cells(1, 1), WS1.Cells(20703, 2)).Value
Kykdata = WS2.Range(WS2.Cells(1, 1), WS2.Cells(7334, 2)).Value
For Tate = 1 To 20703
ans = Application.WorksheetFunction.VLookup(Uridata(Tate, 1), Kykdata, 2, False)
Uridata(Tate, 2) = ans
Next
としてみましたが、処理完了まで私のPC(PentiumM2.13GHz Mem1GB)では約20分かかります。
もっと早く処理する方法はないものでしょうか?
|
|