vba基础（excel）（2）感谢兰色幻想简单的加减法和负值_vba函数说明插件蓝色幻想-优快云博客

博客展示了一段VBA代码，用于在Excel中进行数据处理。代码通过循环为指定单元格赋值，计算特定范围单元格的总和，并统计指定列的非空单元格数量，体现了VBA在Excel自动化操作中的应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub 矩形1_单击()
    Dim X As Integer
    For X = 1 To 20
        Sheets("sheet1").Cells(X, 1) = X
    Next
End Sub

这个是给A1-A20负值，A1=1，A2=2....A20=20

----------------------------------------------------------------------------------------------------------------------------
Sub 矩形1_单击()
    Range("a21").Value = Application.WorksheetFunction.Sum(Range("a1:a20"))
End Sub

这个是给A21负值，让A21是A1-A20的和

-----------------------------------------------------------------------------------------------------------------------------
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

Application.WorksheetFunction.Average是求平均数的。
Application.WorksheetFunction是一个作用域，我理解Sum,Average都是静态类的静态方法。

----------------------------------------------------------------------------------------------------------------------------

Sub 矩形1_单击()
    Dim i As Integer
    For i = 4 To 36
        Sheets("sheet1").Cells(i, 4) = i
    Next
    Range("d37").Value = Application.WorksheetFunction.Sum(Range("d4:d36"))
    Range("B1").Value = Application.WorksheetFunction.CountA(Range("a1:a40000"))
End Sub

CountA是非空单元格个数，Range("a1:a40000")的表示法不好，如果是表示列A
那么最好用

Range("B1").Value = .CountA(Columns(1))
Range("B2").Value = .CountA(Range("A:A"))