Excel VBAのエラー対応「実行時エラー:6 オーバーフローしました。」

Question

下記コードの内容で、Rangeの範囲が大きくなると、実行時エラーが出ます。

●エラーが出ない場合

Sub Tenki() 

    Dim s01 As Worksheet
    Dim s20 As Worksheet

    Set s01 = Worksheets("O")
    Set s20 = Worksheets("全体")

    Range(s20.Cells(3, 1), s20.Cells(50000, 20)) = ClearContents
    Range(s20.Cells(3, 1), s20.Cells(72, 20)).Value = Range(s01.Cells(3, 1), s01.Cells(72, 20)).Value

End　Sub

●エラーが出る場合

Sub Tenki() 

    Dim s01 As Worksheet
    Dim s20 As Worksheet

    Set s01 = Worksheets("O")
    Set s20 = Worksheets("全体")

    Range(s20.Cells(3, 1), s20.Cells(50000, 20)) = ClearContents
    Range(s20.Cells(3, 1), s20.Cells(73, 20)).Value = Range(s01.Cells(3, 1), s01.Cells(73, 20)).Value

End　Sub

s01シートのセルの中身は、他のExcelデータを参照する為の関数が入っています。
その参照した値のみ、s20シートへ転記したいのですが、
「実行時エラー:6　オーバーフローしました。」
上記のようなエラーメッセージが出てしまいます。
エラーポイントは、
Range(s20.Cells(3, 1), s20.Cells(73, 20)).Value = Range(s01.Cells(3, 1), s01.Cells(73, 20)).Value
になります。

色々検証した結果、セルの行数が73より大きい数字のなると、上記エラーになります。
原因がお分かりになる方いましたら、ご教授頂ければと思います。

Answer 1

Range(s20.Cells(3, 1), s20.Cells(50000, 20)) = ClearContents
"="を"."に変更してください
Range(s20.Cells(3, 1), s20.Cells(50000, 20)).ClearContents
jinoji様と同じ内容です

Comments

[YISS]

回答ありがとうございます。
試してみましたが、症状は改善しませんでした。

Answer 2

こう変えたらどうでしょうか。

    s20.Range("A3:T50000").ClearContents
    s20.Range("A3:T73").Value = s01.Range("A3:T73").Value

Comments

[YISS]

回答ありがとうございます。
試してみましたが、症状は改善しませんでした。

Answer 3

Range(s01.Cells(3, 1), s01.Cells(1560, 20)).Copy Range(s20.Cells(3, 1), s20.Cells(1560, 20))

これでどうですか？

セルの行数が73より大きい数字のなると、上記エラーになります。

その、範囲が72から73に増えたところにあるコピー先のセルの書式が、コピー元のセルの値を格納しきれないものであったということが考えられますね。

上で提示したコードでは書式も含めてまるごとコピーしますので、そのようなことは起きないと思います。

もし、書式等はコピーしたくない、値だけコピーしたいという理由があるのでしたら、コピー先の書式を修正する必要があります。

Comments

[YISS]

.copyでエラー回避することができました。
ありがとうございます。