Private Sub Command2_Click()
 Dim EXAPP As Excel.Application
 Dim WB As Excel.Workbook
 Dim sht As Excel.Worksheet
 Set EXAPP = CreateObject("excel.application")
 Set WB = EXAPP.Workbooks.Open("d:\成绩表.xls")
 Set sht = WB.Worksheets("Sheet1")
Range("O2").Select
    ActiveCell.FormulaR1C1 = "=RANK(RC[-1],R2C14:R643C14)"
    Range("O2").Select
    Selection.AutoFill Destination:=Range("O2:O643"), Type:=xlFillDefault
    Range("O2:O643").Select
红色字体提示错误，麻烦高手解答下，谢谢

range("02")为什么要加引号？
去除下试试

定义在哪？

Range 是不是  sht 的属性，加了类名字在前面吗？
包括下面的 ActiveCell 都是一样的。

你这个代码是 VBA 里直接复制出来的吧。也感觉不对啊。

如果要将h7至h9的和放到h10中
设置工作表后，直接：
sht.Range("h10") = "=SUM(h7:h9)"