本示例在活动单元格中输入公式“=ROW()”。

ActiveCell.Formula = "=ROW()"