teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

1

質問文、修正しました

2021/04/24 09:02

投稿

YISS
YISS

スコア14

title CHANGED
File without changes
body CHANGED
@@ -1,6 +1,22 @@
1
- 昨日までは普通に動いていたのですが、急に下記コードで実行したらエラーとなりした
1
+ 下記コードの内容、Rangeの範囲が大きくなると、実行エラーが出
2
2
 
3
+ ●エラーが出ない場合
4
+ ```VBA
5
+ Sub Tenki()
3
6
 
7
+ Dim s01 As Worksheet
8
+ Dim s20 As Worksheet
9
+
10
+ Set s01 = Worksheets("O")
11
+ Set s20 = Worksheets("全体")
12
+
13
+ Range(s20.Cells(3, 1), s20.Cells(50000, 20)) = ClearContents
14
+ Range(s20.Cells(3, 1), s20.Cells(72, 20)).Value = Range(s01.Cells(3, 1), s01.Cells(72, 20)).Value
15
+
16
+ End Sub
17
+ ```
18
+
19
+ ●エラーが出る場合
4
20
  ```VBA
5
21
  Sub Tenki()
6
22
 
@@ -11,7 +27,7 @@
11
27
  Set s20 = Worksheets("全体")
12
28
 
13
29
  Range(s20.Cells(3, 1), s20.Cells(50000, 20)) = ClearContents
14
- Range(s20.Cells(3, 1), s20.Cells(1560, 20)).Value = Range(s01.Cells(3, 1), s01.Cells(1560, 20)).Value
30
+ Range(s20.Cells(3, 1), s20.Cells(73, 20)).Value = Range(s01.Cells(3, 1), s01.Cells(73, 20)).Value
15
31
 
16
32
  End Sub
17
33
  ```
@@ -21,10 +37,8 @@
21
37
   「実行時エラー:6 オーバーフローしました。」
22
38
  上記のようなエラーメッセージが出てしまいます。
23
39
  エラーポイントは、
24
-   Range(s20.Cells(3, 1), s20.Cells(1560, 20)).Value = Range(s01.Cells(3, 1), s01.Cells(1560, 20)).Value
40
+ Range(s20.Cells(3, 1), s20.Cells(73, 20)).Value = Range(s01.Cells(3, 1), s01.Cells(73, 20)).Value
25
41
  になります。
26
42
 
27
-
28
-
29
- 書式の統一など色々したのですが、まだ解決しません
43
+ 色々検証した結果、セル行数73より大きい数字のなると上記エラーになり
30
- お分かりになる方いましたら、ご教授頂ければと思います。
44
+ 原因がお分かりになる方いましたら、ご教授頂ければと思います。