Excel VBA質問箱 IV

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

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


53192 / 76732 ←次へ | 前へ→

【28359】配列でのVlookupと転記について
質問  yuhmo  - 05/9/3(土) 15:09 -

引用なし
パスワード
   皆様教えてください。

シート“売上データ”の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分かかります。

もっと早く処理する方法はないものでしょうか?
0 hits

【28359】配列でのVlookupと転記について yuhmo 05/9/3(土) 15:09 質問
【28360】Re:配列でのVlookupと転記について Hirofumi 05/9/3(土) 15:57 回答
【28361】Re:配列でのVlookupと転記について yuhmo 05/9/3(土) 16:07 お礼

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