| |
はじめまして。
最近ＶＢＡにはまり出したにわかマクロ使いです。
一通り基礎は理解できてきたのですが、性能面でどうかな、と思ったので
質問させてください。
エクセルのＶＢＡで以下のようなマクロを作ろうとしています。
☆Sheet1とSheet2の内容をマージしたものをSheet3に出力するマクロ
●それぞれのシートの内容（データは適当です）
Sheet1 Sheet2
ＩＤ 名前 スコア１ スコア２ ＩＤ 名前 所属
１ あ ２０ ３０ １ あ １組
２ い ２０ ３０ ２ い ２組
３ う ２０ ３０ ３ う ３組
４ え ２０ ３０ ４ え ４組
１ あ ２０ ３０
２ い ２０ ３０
３ う ２０ ３０
Sheet1とSheet2の内容からＩＤをキーにして
以下のようなシートを作成する。
Sheet3
ＩＤ 名前 スコア１ スコア２ 所属
１ あ ２０ ３０ １組
２ い ２０ ３０ ２組
３ う ２０ ３０ ３組
４ え ２０ ３０ ４組
１ あ ２０ ３０ １組
２ い ２０ ３０ ２組
３ う ２０ ３０ ３組
イメージ的には正規化の逆って感じです。
自分で考えたコードは
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
for i = 1 to sheet1データ数
方法1.
for j = 1 to sheet2データ数
if worksheets("sheet1").cells(i,1).value = _
worksheets("sheet2").cells(j,1).value then
worksheets("sheet3").range("A" & i & ":D" & i) = _
worksheets("sheet1").range("A" & i & ":D" & i)
worksheets("sheet3").cells(i,5).value = _
worksheets("sheet2").cells(j,3)
end if
next j
方法2.
worksheets("sheet3").range("A" & i & ":D" & i) = _
worksheets("sheet1").range("A" & i & ":D" & i)
worksheets("sheet3").(i,5).calue = _
Application.worksheetfunction.vlookup( _
worksheets("sheet1").cells(i,1), _
worksheets("sheet2").usedrange,3,false)
next i
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
です。一応動くことは動くのですが、データ件数が多く（４〜５万件）なるとループ回数が増えてしまって実行時間がとても長くなります。
これ以外でもっとスマートな方法などありましたら、
アドバイスしていただけないでしょうか。
よろしくお願いします。
|
|
hiro
- 08/2/8(金) 1:18 -
