| |
こんにちは。
Sheet1のA列にあるデータとSheet2のA列にあるデータをマッピングしようと思い、
以下のようなコーディングをしました。
Sheet1のデータ件数が少ない場合は良かったのですが、
Sheet1のデータ件数が増えるにつれてパフォーマンスが悪くなってきました。（当然ですが・・・）
そこでパフォーマンスを上げる為に何かお気づきの点がありましたら、
ご指摘して頂きたく。。
どなたか宜しくお願いします。
***********************************
Do Until i > sheet1Rows
Do Until j > sheet2Rows
'ある条件の場合の処理。
If (・・・) Then
Exit Do
End If
'Sheet1のA列とSheet2のA列を比較
If (Sheets("sheet1").cells(i,1).text = Sheets("sheet2").cells（j,1).text) Then
・・・
Exit Do
End If
j = j + 1
'Sheet2に存在しない場合、メッセージを表示する。
If (j > sheet2Rows) Then
msgbox ("Sheet2には存在しないコードです。")
End If
Loop
j = 2
i = i + 1
Loop
************************************
|
|
ふくいんちょー
- 04/3/9(火) 18:47 -
