回答編集履歴
1
修正
test
CHANGED
|
@@ -15,7 +15,7 @@
|
|
|
15
15
|
Application.ScreenUpdating = False
|
|
16
16
|
'画面を止める
|
|
17
17
|
Set sh1 = Worksheets("sheet1")
|
|
18
|
-
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
|
|
18
|
+
最終行 = sh1.Cells(Rows.Count, 1).End(xlUp).Row
|
|
19
19
|
sheet_no = 1
|
|
20
20
|
For 行数 = 1 To 最終行
|
|
21
21
|
'最終行まで繰り返し
|