回答編集履歴
2
修正
answer
CHANGED
|
@@ -2,18 +2,15 @@
|
|
|
2
2
|
Sub test()
|
|
3
3
|
|
|
4
4
|
Dim i As Long
|
|
5
|
-
Dim j As Long
|
|
6
5
|
Dim strArryHoge() As Variant
|
|
7
6
|
|
|
8
|
-
j = 1
|
|
9
7
|
For i = 5 To Worksheets("シート1").Cells(Rows.Count, "B").End(xlUp).Row
|
|
10
8
|
|
|
11
9
|
' 配列を再定義する
|
|
12
|
-
ReDim Preserve strArryHoge(
|
|
10
|
+
ReDim Preserve strArryHoge(i - 4)
|
|
13
11
|
|
|
14
12
|
' 配列に値を格納する
|
|
15
|
-
strArryHoge(
|
|
13
|
+
strArryHoge(i - 5) = Worksheets("シート1").Cells(i, "B").Row
|
|
16
|
-
j = j + 1
|
|
17
14
|
Next
|
|
18
15
|
|
|
19
16
|
End Sub
|
1
修正
answer
CHANGED
|
@@ -1,3 +1,20 @@
|
|
|
1
1
|
```vba
|
|
2
|
+
Sub test()
|
|
3
|
+
|
|
2
|
-
|
|
4
|
+
Dim i As Long
|
|
5
|
+
Dim j As Long
|
|
6
|
+
Dim strArryHoge() As Variant
|
|
7
|
+
|
|
8
|
+
j = 1
|
|
9
|
+
For i = 5 To Worksheets("シート1").Cells(Rows.Count, "B").End(xlUp).Row
|
|
10
|
+
|
|
11
|
+
' 配列を再定義する
|
|
12
|
+
ReDim Preserve strArryHoge(j)
|
|
13
|
+
|
|
14
|
+
' 配列に値を格納する
|
|
15
|
+
strArryHoge(j) = Worksheets("シート1").Cells(i, "B").Row
|
|
16
|
+
j = j + 1
|
|
17
|
+
Next
|
|
18
|
+
|
|
19
|
+
End Sub
|
|
3
20
|
```
|