VBA 统计非空白单元格数量

qq25536956 · 发表于 2015-1-5 17:40

如何利用VBA 统计非空白单元格数量
例如：
统计:range("A1:B10")统计非空白单元格数量，存放于C1

jinshiyuan318 · 发表于 2015-1-5 18:25

=Rows*Columns-COUNTIF(A1:B10,"")
'=10*2-COUNTIF(A1:B10,"")

jinshiyuan318 · 发表于 2015-1-5 21:08

Sub ss()
Dim m As Range
Set m = Worksheets("sheet1").Range(Cells(1, "a"), Cells(10, "b"))
Range("C1") = 20 - Application.WorksheetFunction.CountIf(m, "")
End Sub

jinshiyuan318 · 发表于 2015-1-5 21:29

Sub ss()
Dim x, y
Dim m As Range
x = ActiveSheet.UsedRange.Rows.Count
y = ActiveSheet.UsedRange.Columns.Count
Set m = Worksheets("sheet1").Range(Cells(1, "a"), Cells(10, "b"))
Range("C1") = x * y - Application.WorksheetFunction.CountIf(m, "")
End Sub

jinshiyuan318 · 发表于 2015-1-8 23:54

Range("C1") =Application.WorksheetFunction.Counta(m)

复制代码

		自动登录	找回密码
密码			免费注册