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