質問編集履歴
1
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -66,7 +66,7 @@
|
|
|
66
66
|
|
|
67
67
|
Dim myRow1 As Long, myRow2 As Long
|
|
68
68
|
|
|
69
|
-
'----Sheet1とSheet2の
|
|
69
|
+
'----Sheet1とSheet2のA列で最終行を捜します。
|
|
70
70
|
|
|
71
71
|
myRow1 = Sheets("抽出").Range("A" & Rows.Count).End(xlUp).Row
|
|
72
72
|
|