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

回答編集履歴

1

コード追記

2020/06/25 11:38

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -14,4 +14,26 @@
14
14
  ary = .UsedRange.Value
15
15
  .UsedRange.Value = ary
16
16
  End with
17
+ ```
18
+
19
+ セル範囲が大きすぎるの原因だとしたら、下記のように1行ずつ上書きするとか。
20
+
21
+ ```vba
22
+ Dim ary() As Variant
23
+ With xlBook.Worksheets("Sheet1")
24
+ ary = .UsedRange.Value
25
+ .UsedRange.Value = ary
26
+ End with
27
+ ```
28
+
29
+ あとは、処理の前後に下記のコードを挿入して描画と計算を停止させるとか。
30
+
31
+ ```vba
32
+ Application.ScreenUpdating = False
33
+ Application.Calculation = xlCalculationManual
34
+
35
+ '処理
36
+
37
+ Application.Calculation = xlCalculationAutomatic
38
+ Application.ScreenUpdating = True
17
39
  ```