よろしくご教示お願いします。

質問

よろしくご教示お願いします。
下の構文のＶＢＡで簡素化する構文を教えてください。
現状は関数を各行に記述しています。

1行目　=IF(COUNT(AN$5:AN$200)>=1,VLOOKUP(SMALL(AN5:AN200,1),AN5:AQ200,4,FALSE),"")
2行目　=IF(COUNT(AN$5:AN$200)>=2,VLOOKUP(SMALL(AN5:AN200,2),AN5:AQ200,4,FALSE),"")
3行目　=IF(COUNT(AN$5:AN$200)>=3,VLOOKUP(SMALL(AN5:AN200,3),AN5:AQ200,4,FALSE),"")

　　　　　　　　　　　　　～

200行目迄記述しています

回答No.1

KURUMITO · ベストアンサー

1行目のセルに次の式を入力して下方にオートフィルドラッグすればよいでしょう。

=IF(COUNT(AN$5:AN$200)>=ROW(A1),VLOOKUP(SMALL(AN$5:AN$200,ROW(A1)),AN$5:AQ$200,4,FALSE),"")