MENU

繰り返し

一般的な繰り返し

一般的に繰り返しは、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

アプリはこちらから↓↓↓↓