回答編集履歴
1
コードの修正
answer
CHANGED
|
@@ -20,7 +20,6 @@
|
|
|
20
20
|
|
|
21
21
|
```vba
|
|
22
22
|
Sub getBusho_Kai()
|
|
23
|
-
SWStart
|
|
24
23
|
|
|
25
24
|
Application.ScreenUpdating = False
|
|
26
25
|
Dim fso As Object
|
|
@@ -53,8 +52,5 @@
|
|
|
53
52
|
Range("A1").Resize(UBound(ary) + 1).Value = WorksheetFunction.Transpose(ary)
|
|
54
53
|
Application.ScreenUpdating = True
|
|
55
54
|
|
|
56
|
-
|
|
57
|
-
SWStop
|
|
58
|
-
SWShow
|
|
59
55
|
End Sub
|
|
60
56
|
```
|