Ｅｘｃｅｌ VBA 実行時エラー'1004':

質問

どちらの処理がより高速であるのかを調べるため、以下の2つのVBAを試作致しました。

Sub Macroコピペ乱数()
'コピペ乱数

Sheets("Sheet4").Select
Range("A1:A99999").Formula = "=RAND()"
Columns("A").Value = Columns("A").Value
Range("B1").Select

End Sub

及び

Sub Macro繰り返し乱数()
'繰り返し乱数
Dim i As Long
Randomize
Sheets("Sheet4").Select
For i = 1 To 99999
Range("A" & i).Value = Rnd
Next i
Range("B1").Select

End Sub

　処が、これらのVBAを実際に動作させ様としますと、どちらの場合においても「Microsoft Visual Basic」ダイアログボックスが開いて

「実行時エラー'1004':
'Range'メソッドは失敗しました:'_Global'オブジェクト」

と表示されてしまいます。
　さりとて、

Sub Macroコピペ乱数()
'コピペ乱数

Sheets("Sheet4").Select
ActiveSheet.Range("A1:A99999").Formula = "=RAND()"
Columns("A").Value = Columns("A").Value
Range("B1").Select

End Sub

及び

Sub Macro繰り返し乱数()
'繰り返し乱数
Dim i As Long
Randomize
Sheets("Sheet4").Select
For i = 1 To 99999
Range("A" & i).Value = Rnd
Next i
Range("B1").Select

End Sub

或いは

Sub Macro繰り返し乱数()
'繰り返し乱数
Dim i As Long
Randomize
Sheets("Sheet4").Select
For i = 1 To 99999
Range(Cells(i, 1)).Value = Rnd
Next i
Range("B1").Select

End Sub

等としましても、今度は

「実行時エラー'1004':
アプリケーション定義またはオブジェクト定義のエラーです。」

となってしまいます。
　どの部分がどの様に悪いのでしょうか？
　そして、どの様に修正すれば良いのでしょうか？

　尚、使用しておりますＥｘｃｅｌのバージョンはＥｘｃｅｌ2010です。

回答No.1

keithin · ベストアンサー

いずれのエラーも、ブックが互換モード（６５５３６行まで）で開かれているときの症状に合致します。
ｘｌｓｍ形式などで保存し直してから、動作をご確認ください。

なお、最後のマクロの
Range(Cells(i, 1)).Value = Rnd
は
Cells(i, 1).Value = Rnd
の誤りと思われます。

お礼

御回答頂き有難う御座います。

>いずれのエラーも、ブックが互換モード（６５５３６行まで）で開かれているときの症状に合致します。

　セル範囲の設定を9999行にして試した際に、処理に要する時間が短過ぎまして、ストップウォッチを押す暇も十分には無かったため、行数を順次増やしていっている内に、間抜けな事にExcel97-2003互換モードで利用可能な行数を超えておりました。
　御教え頂き、感謝致します。