20/12/23 05:25:00.77 j3OsNt/k0.net
>>80
早速の回答ありがとうございます
For r = 1 To Range("A" & Rows.Count).End(xlUp).Row
↑
For r = 1 To Sheet("１" & Rows.Count).End(xlUp).Row
に変更したらいいのでしょうか？
初心者ですいません
20/12/23 05:25:00.77 j3OsNt/k0.net
>>80
早速の回答ありがとうございます
For r = 1 To Range("A" & Rows.Count).End(xlUp).Row
↑
For r = 1 To Sheet("１" & Rows.Count).End(xlUp).Row
に変更したらいいのでしょうか？
初心者ですいません