回答編集履歴

1

コード追記

2020/06/25 11:38

投稿

hatena19
hatena19

スコア33520

test CHANGED
@@ -31,3 +31,47 @@
31
31
  End with
32
32
 
33
33
  ```
34
+
35
+
36
+
37
+ セル範囲が大きすぎるの原因だとしたら、下記のように1行ずつ上書きするとか。
38
+
39
+
40
+
41
+ ```vba
42
+
43
+ Dim ary() As Variant
44
+
45
+ With xlBook.Worksheets("Sheet1")
46
+
47
+ ary = .UsedRange.Value
48
+
49
+ .UsedRange.Value = ary
50
+
51
+ End with
52
+
53
+ ```
54
+
55
+
56
+
57
+ あとは、処理の前後に下記のコードを挿入して描画と計算を停止させるとか。
58
+
59
+
60
+
61
+ ```vba
62
+
63
+ Application.ScreenUpdating = False
64
+
65
+ Application.Calculation = xlCalculationManual
66
+
67
+
68
+
69
+ '処理
70
+
71
+
72
+
73
+ Application.Calculation = xlCalculationAutomatic
74
+
75
+ Application.ScreenUpdating = True
76
+
77
+ ```