【Excel VBA】For Each~Nextステートメントで同じ種類のオブジェクトすべてに同じ処理を実行する方法