博客展示了一段VBA代码，通过定义Integer类型变量YYY，利用CountA函数统计A列非空单元格数量，然后清除A列从第1行到统计数量行的内容，还提及了CountA函数两种使用方式等价。
Sub 椭圆4_单击()
Dim YYY As Integer
YYY = Application.WorksheetFunction.CountA(Columns("A"))
Range(Cells(1, 1), Cells(YYY, 1)).ClearContents
End Sub
CountA(Range("A:A"))=CountA(Columns("A")
Dim YYY As Integer
YYY = Application.WorksheetFunction.CountA(Columns("A"))
Range(Cells(1, 1), Cells(YYY, 1)).ClearContents
End Sub
CountA(Range("A:A"))=CountA(Columns("A")
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
