如果是单个调用必须加
如果是多个调用就可以用WITH语句省去后面的
如Sub 矩形1_单击()
Dim i As Integer
For i = 1 To 20
Sheets("sheet1").Cells(i, 1) = i
Next
With Application.WorksheetFunction
Range("a21").Value = .Sum(Range("a1:a20")) 注意SUM前面要有个点才行
Range("a22").Value = .Average(Range("a1:a20"))
End With
End Sub
