質問編集履歴
1
コード追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -9,6 +9,9 @@
|
|
|
9
9
|
|
|
10
10
|
【参考:簡略した現在のコード】
|
|
11
11
|
```VBA
|
|
12
|
+
Application.ScreenUpdating=False
|
|
13
|
+
Application.Calculation = xlManual
|
|
14
|
+
|
|
12
15
|
Dim i As Long
|
|
13
16
|
i=2
|
|
14
17
|
Do While i <> 最終行+1
|
|
@@ -18,5 +21,8 @@
|
|
|
18
21
|
End If
|
|
19
22
|
Loop
|
|
20
23
|
|
|
24
|
+
Application.Calculation = xlAutomatic
|
|
25
|
+
Application.ScreenUpdating=True
|
|
26
|
+
|
|
21
27
|
```
|
|
22
28
|
|