もっとも不細工(cells(i,1)の形が実行時バインド) dim i as long For i = 1 To cells(rows.count,1).end(xlup).row If cells(i,1).value="foo" then cells(i,2).hogehoge end if Next i
まだまだ不細工(Itemプロパティが実行時バインド) dim r as range dim i as long set r =range(cells(1,1),cells(rows.count,1).end(xlup)) for i=1 to r.count If r.item(i,1).value="foo" then r.item(i,2).hogehoge end if next i
上の二つよりまとも(cは事前バインド) dim r as range dim c as range set r =range(cells(1,1),cells(rows.count,1).end(xlup)) for each c in r if c.value="foo" then c.offset(,1).hogehoge end if next c
