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("总表")
 sht.Range("U3").Select
    ActiveCell.FormulaR1C1 = "=RANK(RC[-1],R3C20:R800C20)"
    sht.Range("U3").Select
    Selection.AutoFill Destination:=Range("U3:U800"), Type:=xlFillDefault
 'WB.Save'保存编辑后的文件
 WB.Close
 Set sht = Nothing
 Set WB = Nothing
 Set EXAPP = Nothing
End Sub
运算过程中红色部分出错，请高手帮忙看看

还是提示错误。。

提示ActiveCell错误

谢谢我测试下

谢谢测试过了，能不能问下，问题出在哪里了？

高手哪里有类似这样的基础教本，我能看的学习一下，也是一个提高

sht.Range("U3").Activate
    sht.Range("U3").AutoFill Destination:=Range("U3:U800"), Type:=xlFillDefault
高手这句换是有点问题

sht.Range("U3").Activate
    sht.Range("U3").AutoFill Destination:=Range("U3:U800"), Type:=xlFillDefault
高手这句换是有点问题

谢谢老大，我咋感觉我就是个小白。谢谢你对我的帮助