回答編集履歴
1
抽出結果が1行目から書き込まれるようにしました。
test
CHANGED
|
@@ -118,7 +118,9 @@
|
|
|
118
118
|
|
|
119
119
|
'上記の処理で捕捉した抽出シートの最終行を探します。
|
|
120
120
|
|
|
121
|
-
LastRow = WriteSheet.Cells(Rows.Count, 1).End(xlUp).Row
|
|
121
|
+
LastRow = WriteSheet.Cells(Rows.Count, 1).End(xlUp).Row
|
|
122
|
+
|
|
123
|
+
If LastRow <> 1 Then LastRow = LastRow + 1
|
|
122
124
|
|
|
123
125
|
|
|
124
126
|
|