一般的な繰り返し
一般的に繰り返しは、For Nextを使います。
For 行 = 1 To 10
条件分岐
Next
本アプリの繰り返し
しかし、本アプリでは、下記のFor Eachを使います。
For Each セル In Range(セル範囲).Cells
条件分岐
Next
理由は、表のセル範囲でFor Nextを使うと、下のコードのように複雑になるためです。
セル範囲配列 = Range(セル範囲)
For 列 = LBound(セル範囲配列, 2) To UBound(セル範囲配列, 2)For 行 = LBound(セル範囲配列, 1) To UBound(セル範囲配列, 1)
条件分岐
Next 行
Next 列
削除の場合
なお、削除は、下から順に行う必要があるので、下記のFor Nex文を使います。
セル範囲配列 = Range(セル範囲)
For 列 = UBound(セル範囲配列, 2) To LBound(セル範囲配列, 2) Step -1
For 行 = UBound(セル範囲配列, 1) To LBound(セル範囲配列, 1) Step -1
条件分岐
Next 行
Next 列