投稿日 | : 2005/09/08(Thu) 09:51 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : 文字の置換(テスト結果) |
実験結果
使用データ 20列×2万行(4579KB)
元のコードでの結果 7.4秒
下記のコードでの結果 1.9秒
sCovText = Replace(Mid$(sCovText, 1, 1000000), ",", vbTab) & _
Replace(Mid$(sCovText, 1000001, 1000000), ",", vbTab) & _
Replace(Mid$(sCovText, 2000001, 1000000), ",", vbTab) & _
Replace(Mid$(sCovText, 3000001, 1000000), ",", vbTab) & _
Replace(Mid$(sCovText, 4000001, LenN - 4000001), ",", vbTab)
上記コードをもう少し工夫すれば、もう少しは早くなるかも。
一度そちらの環境で試して見て下さい。