>>660
なるほどありがとうございます。
でもどう使いますか？

単に
Cells(r,c)="=IF(B1=C1,D1,E1)"
と書くのと
Cells(r,c).Formula="=IF(B1=C1,D1,E1)"
と書くのでは違うということでししょうか？

VBAでも自動でオートフィルしてくれますか？たとえばRange("A1:A100")="=B1*100"とすればA100セルは"=B100*100"になってる？