回答編集履歴
2
解説を追記しました。
answer
CHANGED
|
@@ -1,3 +1,11 @@
|
|
|
1
1
|
`Range(s01.Cells(3, 1), s01.Cells(1560, 20)).Copy Range(s20.Cells(3, 1), s20.Cells(1560, 20))`
|
|
2
2
|
|
|
3
|
-
これでどうですか？
|
|
3
|
+
これでどうですか？
|
|
4
|
+
|
|
5
|
+
> セルの行数が73より大きい数字のなると、上記エラーになります。
|
|
6
|
+
|
|
7
|
+
その、範囲が72から73に増えたところにあるコピー先のセルの書式が、コピー元のセルの値を格納しきれないものであったということが考えられますね。
|
|
8
|
+
|
|
9
|
+
上で提示したコードでは書式も含めてまるごとコピーしますので、そのようなことは起きないと思います。
|
|
10
|
+
|
|
11
|
+
もし、書式等はコピーしたくない、値だけコピーしたいという理由があるのでしたら、コピー先の書式を修正する必要があります。
|
1
コピー元とコピー先が逆でしたので修正しました
answer
CHANGED
|
@@ -1,3 +1,3 @@
|
|
|
1
|
-
`Range(
|
|
1
|
+
`Range(s01.Cells(3, 1), s01.Cells(1560, 20)).Copy Range(s20.Cells(3, 1), s20.Cells(1560, 20))`
|
|
2
2
|
|
|
3
3
|
これでどうですか？
|