データの最終行を取得

'最終行を取得する
cnt = Cells(Rows.Count, 1).End(xlUp).Row

コメント

タイトルとURLをコピーしました