質問編集履歴
1
コードの字下げが見づらかったので
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -38,21 +38,19 @@
|
|
|
38
38
|
|
|
39
39
|
Dim B(1 To 66000) As Variant
|
|
40
40
|
|
|
41
|
-
|
|
42
|
-
|
|
43
|
-
'メイン処理
|
|
44
|
-
|
|
45
41
|
Dim i As Long
|
|
46
|
-
|
|
47
|
-
For i = 1 To 66000
|
|
48
|
-
|
|
49
|
-
B(i) = i
|
|
50
|
-
|
|
51
|
-
Next i
|
|
52
42
|
|
|
53
43
|
|
|
54
44
|
|
|
45
|
+
For i = 1 To 66000
|
|
46
|
+
|
|
47
|
+
B(i) = i
|
|
48
|
+
|
|
49
|
+
Next i
|
|
50
|
+
|
|
51
|
+
|
|
52
|
+
|
|
55
|
-
Range(Cells(1, 1), Cells(66000, 1)) = WorksheetFunction.Transpose(B)
|
|
53
|
+
Range(Cells(1, 1), Cells(66000, 1)) = WorksheetFunction.Transpose(B)
|
|
56
54
|
|
|
57
55
|
|
|
58
56
|
|