回答編集履歴
1
修正
answer
CHANGED
|
@@ -7,7 +7,7 @@
|
|
|
7
7
|
lastRow = moto.Range("A" & Rows.Count).End(xlUp).Row
|
|
8
8
|
|
|
9
9
|
Dim saki As Worksheet
|
|
10
|
-
Set saki = Workbooks("リスト").Worksheets(1)
|
|
10
|
+
Set saki = Workbooks("リスト.xlsx").Worksheets(1)
|
|
11
11
|
Dim outRow As Long
|
|
12
12
|
outRow = saki.Range("A" & saki.Rows.Count).End(xlUp).Row + 1
|
|
13
13
|
|