【タイトル】
 繰り返し処理 For Each 変数 in 対象の集合 〜 Next
 対象を一つづつ変数に読み込み、「For Each 〜 Next」間の処理を対象がなくなるまで繰り返す
 選択した幾つかのセルに同じ処理をする場合などに使う
 
【書式】
Dim t_cell As Range
For Each t_cell in Selection
  処理内容
Next t_cell
【説明】
 1行目:セル型の変数「t_cell」を宣言
 2行目:選択したセルそれぞれに対し、次の処理を実行する
 3行目:実行する処理内容
 4行目:Selection の最後まで繰り返す