回答編集履歴
1
コード追記
answer
CHANGED
|
@@ -9,4 +9,13 @@
|
|
|
9
9
|
```vba
|
|
10
10
|
Application.Calculation = xlCalculationAutomatic
|
|
11
11
|
Application.ScreenUpdating = True
|
|
12
|
+
```
|
|
13
|
+
|
|
14
|
+
別案
|
|
15
|
+
---
|
|
16
|
+
ちなみに下記の1行でも同様のことが可能です。
|
|
17
|
+
速度的にどうかはわかりません。
|
|
18
|
+
|
|
19
|
+
```vba
|
|
20
|
+
Range(Cells(toprow ,1),Cells(bottomrow ,1)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
|
|
12
21
|
```
|