Columns("AN:AN").Select
newRowCount = WorksheetFunction.CountA(Selection)
セルa2からa6に入力されているデータの個数をcountaワークシート関数を用いて取得し、変数numに代入する
Columns("AN:AN").Select
newRowCount = WorksheetFunction.CountA(Selection)
セルa2からa6に入力されているデータの個数をcountaワークシート関数を用いて取得し、変数numに代入する