質問編集履歴
1
コードの字下げが見づらかったので
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -18,15 +18,14 @@
|
|
|
18
18
|
Sub test()
|
|
19
19
|
|
|
20
20
|
Dim B(1 To 66000) As Variant
|
|
21
|
-
|
|
22
|
-
'メイン処理
|
|
23
21
|
Dim i As Long
|
|
24
|
-
For i = 1 To 66000
|
|
25
|
-
B(i) = i
|
|
26
|
-
Next i
|
|
27
22
|
|
|
28
|
-
|
|
23
|
+
For i = 1 To 66000
|
|
24
|
+
B(i) = i
|
|
25
|
+
Next i
|
|
29
26
|
|
|
27
|
+
Range(Cells(1, 1), Cells(66000, 1)) = WorksheetFunction.Transpose(B)
|
|
28
|
+
|
|
30
29
|
End Sub
|
|
31
30
|
```
|
|
32
31
|
|