こんな感じ Sub aaaaa() Dim datanum As Long ”’ データの総数を求める Range(“A1048576”).Select Selection・・・