VLOOKUPの簡略化

質問

よろしくお願いします。
下記構文の簡素化をお教えください

Range("F5").Value = "=IF(COUNT(AB5:AB231)>0,_
VLOOKUP(2,AB5:AG231,6,FALSE),"""")"

Range("F7").Value = "=IF(COUNT(AB5:AB231)>1,_
VLOOKUP(3,AB5:AG231,6,FALSE),"""")"

Range("F9").Value = "=IF(COUNT(AB5:AB231)>2,_
VLOOKUP(4,AB5:AG231,6,FALSE),"""")"

　　　～中略～

Range("F51").Value = "=IF(COUNT(AB5:AB231)>23,_
VLOOKUP(25,AB5:AG231,6,FALSE),"""")"

Range("F53").Value = "=IF(COUNT(AB5:AB231)>24,_
VLOOKUP(26,AB5:AG231,6,FALSE),"""")"

回答No.1

merlionXX

Sub test01()
Dim n As Long, i As Long
n = 0
For i = 5 To 53 Step 2
Range("F" & i).Formula = "=IF(COUNT(AB5:AB231)>" & n & ",VLOOKUP(" & n + 2 & ",AB5:AG231,6,FALSE),"""")"
n = n + 1
Next i
End Sub

何かの課題ですか？

補足

merlionXXさん　早速の回答ありがとうございます。

何かの課題ですか？

課題ではないのですが、PCの初心者３名で
勉強しています。
これからもよろしくご教示お願いします。