【VBA】データ最終行をFor eachループで取得するマクロ

データ最終行を取得するVBAコードは、 Cells(Rows.Count, 1).End(xlUp).Row が定番ですが、任意の範囲内なら、For each nextを使って最終行を取得した方が手軽にできそうな気がしてコードを書いてみました。 【使い道】 出席簿備考欄の記述で、「新型コロナウイルス感染拡大予防に伴う処置」など、長文を2行に分割するために、E列選択セル以下のデータを1行下にずらし書式をコピーします。その後、1行目は左半分、2行目には右半分の文字を取り出し表示します。 ----------------------------------------- 【コード】 Sub 範囲を1…