Excel VBA 質問スレ Part26at TECHExcel VBA 質問スレ Part26 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト100:デフォルトの名無しさん 12/08/29 00:56:26.02 >>94-96 Variant型変数にRangeの値を代入するならループなんて不要 ためしにこんなん書いてみたらTest1よりTest2のほうが10倍以上速かった Sub Test1() Dim I&, J&, T As Date, R As Range T = Now Set R = Cells(1, 1).Resize(65535, 100) For I = 1 To 65535 For J = 1 To 100 R.Cells(I, J) = I + J Next J Next I Set R = Nothing T = Now - T Cells(1, 1) = Format(T, "hh:mm:ss") End Sub Sub Test2() Dim I&, J&, T As Date, R As Range, V As Variant T = Now Set R = Cells(1, 1).Resize(65535, 100) V = R For I = 1 To 65535 For J = 1 To 100 V(I, J) = I + J Next J Next I R = V Set R = Nothing T = Now - T Cells(1, 1) = Format(T, "hh:mm:ss") End Sub 101:デフォルトの名無しさん 12/08/29 00:57:03.37 >>96 ユーザー定義だとどう書いても重いよね 102:デフォルトの名無しさん 12/08/29 07:25:09.73 >>100 ありがとうございます。 引数をvariantにしてしまえばいいのですかね。 試してみます。 >>101 エクセル使う人は、直感的使いたいようで。 配列数式とか駆使して挙動みながら無理のない範囲で作るしかないですよね。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch