[已解决]怎样统计指定起始行号之间的数据(VBA中用Countif)?

wite007 · 发表于 2012-11-2 09:45

请高手帮忙,看看这个

Countif在VBA中的运用.rar (7.45 KB, 下载次数: 28)

hwc2ycy · 发表于 2012-11-2 09:54

Sub total()
Dim x, y As Integer
x = Range("d2")
y = Range("d3")
With Worksheets("sheet1")
MsgBox Application.WorksheetFunction.CountIf(.Range(.Cells(x, 3), .Cells(y, 3)), "A")
End With
End Sub

复制代码

hwc2ycy · 发表于 2012-11-2 09:56

Sub total()
Dim x, y As Integer
x = Range("d2")
y = Range("d3")
Range("b4") = Application.WorksheetFunction.CountIf(Sheets("sheet1").Range(Sheets("sheet1").Cells(x, 3), Sheets("sheet1").Cells(y, 3)), "A")
End Sub

复制代码

hwc2ycy · 发表于 2012-11-2 09:57

Sub total()
Dim x, y As Integer
x = Range("d2")
y = Range("d3")
With Sheets("sheet1")
Range("b4") = Application.WorksheetFunction.CountIf(.Range(.Cells(x, 3), .Cells(y, 3)), "A")
End With
End Sub

复制代码

huoxieshen · 发表于 2012-11-2 09:57

Sub total()
Dim x, y As Integer
x = Range("d2").Value
y = Range("d3").Value
Range("b4") = Application.WorksheetFunction.CountIf(Sheet1.Range("c" & x & ":c" & y), "A")
End Sub

复制代码

改成这样试试

hwc2ycy · 发表于 2012-11-2 09:58

用4楼的代码吧，简单明了。
加N多前缀太麻烦了。

huoxieshen · 发表于 2012-11-2 10:01

本帖最后由 huoxieshen 于 2012-11-2 10:03 编辑

Sub total()
Dim x As Integer, y As Integer, r As Long, arr(), brr(1 To 60000, 1 To 1)
x = Range("d2").Value
y = Range("d3").Value
r = Cells(Rows.Count, 1).End(3).Row
arr = Range("a4:a" & r).Value
With Sheet1
For i = 1 To r - 3
brr(i, 1) = Application.WorksheetFunction.CountIf(.Range("c" & x & ":c" & y), arr(i, 1))
Next
End With
Range("b4:b65536").ClearContents
Range("b4").Resize(r - 3, 1) = brr
End Sub

复制代码

看看这样可以不？？？

wite007 · 发表于 2012-11-4 11:16

真心感谢各位,帮我解决了困我好几天的问题.再次谢谢!答案都好,也不好设最佳了,要不设一个其他的有意见呀

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