質問編集履歴
2
End Ifが重複していませいたので修正しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -30,7 +30,6 @@
|
|
|
30
30
|
Arr(ii, 1) = ws.Cells(i, 1) 'この時点ではArr(1, 1)が取得できている
|
|
31
31
|
Arr(ii, 2) = ws.Cells(i, 5)
|
|
32
32
|
End If
|
|
33
|
-
End If
|
|
34
33
|
Next
|
|
35
34
|
'この後でArr(1, 1)などを抽出したいが、できない
|
|
36
35
|
```
|
1
コード内の数値が一部間違っていたので修正しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -26,7 +26,7 @@
|
|
|
26
26
|
For i = y To y + k
|
|
27
27
|
If ws.Cells(i, 1) <> "" Then
|
|
28
28
|
ii = ii + 1
|
|
29
|
-
ReDim Arr(ii,
|
|
29
|
+
ReDim Arr(ii, 2)
|
|
30
30
|
Arr(ii, 1) = ws.Cells(i, 1) 'この時点ではArr(1, 1)が取得できている
|
|
31
31
|
Arr(ii, 2) = ws.Cells(i, 5)
|
|
32
32
|
End If
|