Sub 矩形2_单击()
Dim i As Integer
Dim YYY As Integer
For i = 1 To 20
Sheets("sheet1").Cells(i, 1) = i
Next
YYY = Application.WorksheetFunction.CountA(Columns("A"))
Cells(YYY + 1, 1) = Application.WorksheetFunction.Sum(Range(Cells(1, 1), Cells(YYY, 1)))
End Sub
YYY是A列中非空的个数，
vba基础（excel）（3）感谢兰色幻想 ，是对A列所有的都求和（和放在最后一行）
博客展示了一段VBA代码，用于在Excel中操作。代码通过循环将1到20写入sheet1的A列，接着计算A列非空单元格个数，最后将A列已有数据求和并写入下一行，实现了数据的统计与计算。
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
