Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

53196 / 76736

←次へ　｜　前へ→


	【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

としてみましたが、処理完了まで私のＰＣ(PentiumM2.13GHz Mem1GB)では約20分かかります。

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

0 hits

▼

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

≪