回答編集履歴
1
修正
answer
CHANGED
|
@@ -1,2 +1,5 @@
|
|
|
1
1
|
いろいろ方法はありそうですが。
|
|
2
|
-
strArryHoge(i - 1) = Worksheets("シート1").Cells(i+4, "B").Row
|
|
2
|
+
strArryHoge(i - 1) = Worksheets("シート1").Cells(i+4, "B").Row
|
|
3
|
+
|
|
4
|
+
追記 こっちにも必要でしたね
|
|
5
|
+
For i = 1 To Worksheets("シート1").Cells(Rows.Count, "B").End(xlUp).Row - 4
|