質問編集履歴
1
質問文、修正しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,8 +1,8 @@
|
|
|
1
|
-
|
|
1
|
+
下記コードの内容で、Rangeの範囲が大きくなると、実行時エラーが出ます。
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
|
5
|
-
|
|
5
|
+
●エラーが出ない場合
|
|
6
6
|
|
|
7
7
|
```VBA
|
|
8
8
|
|
|
@@ -24,7 +24,39 @@
|
|
|
24
24
|
|
|
25
25
|
Range(s20.Cells(3, 1), s20.Cells(50000, 20)) = ClearContents
|
|
26
26
|
|
|
27
|
-
Range(s20.Cells(3, 1), s20.Cells(
|
|
27
|
+
Range(s20.Cells(3, 1), s20.Cells(72, 20)).Value = Range(s01.Cells(3, 1), s01.Cells(72, 20)).Value
|
|
28
|
+
|
|
29
|
+
|
|
30
|
+
|
|
31
|
+
End Sub
|
|
32
|
+
|
|
33
|
+
```
|
|
34
|
+
|
|
35
|
+
|
|
36
|
+
|
|
37
|
+
●エラーが出る場合
|
|
38
|
+
|
|
39
|
+
```VBA
|
|
40
|
+
|
|
41
|
+
Sub Tenki()
|
|
42
|
+
|
|
43
|
+
|
|
44
|
+
|
|
45
|
+
Dim s01 As Worksheet
|
|
46
|
+
|
|
47
|
+
Dim s20 As Worksheet
|
|
48
|
+
|
|
49
|
+
|
|
50
|
+
|
|
51
|
+
Set s01 = Worksheets("O")
|
|
52
|
+
|
|
53
|
+
Set s20 = Worksheets("全体")
|
|
54
|
+
|
|
55
|
+
|
|
56
|
+
|
|
57
|
+
Range(s20.Cells(3, 1), s20.Cells(50000, 20)) = ClearContents
|
|
58
|
+
|
|
59
|
+
Range(s20.Cells(3, 1), s20.Cells(73, 20)).Value = Range(s01.Cells(3, 1), s01.Cells(73, 20)).Value
|
|
28
60
|
|
|
29
61
|
|
|
30
62
|
|
|
@@ -44,16 +76,12 @@
|
|
|
44
76
|
|
|
45
77
|
エラーポイントは、
|
|
46
78
|
|
|
47
|
-
|
|
79
|
+
Range(s20.Cells(3, 1), s20.Cells(73, 20)).Value = Range(s01.Cells(3, 1), s01.Cells(73, 20)).Value
|
|
48
80
|
|
|
49
81
|
になります。
|
|
50
82
|
|
|
51
83
|
|
|
52
84
|
|
|
85
|
+
色々検証した結果、セルの行数が73より大きい数字のなると、上記エラーになります。
|
|
53
86
|
|
|
54
|
-
|
|
55
|
-
|
|
56
|
-
|
|
57
|
-
書式の統一など色々試したのですが、まだ解決しません。
|
|
58
|
-
|
|
59
|
-
お分かりになる方いましたら、ご教授頂ければと思います。
|
|
87
|
+
原因がお分かりになる方いましたら、ご教授頂ければと思います。
|