[已解决]求助用vba条件统计

清华 · 发表于 2012-11-21 14:35

求助用vba条件统计

最佳答案

爱疯

2012-11-21 15:07

Sub 按钮1_Click()
Dim A, str1, str2, i, x, y
str1 = "成功": str2 = "失败"
A = Range("b1:b" & Range("b65536").End(xlUp).Row)
For i = 1 To UBound(A)
If A(i, 1) = str1 Then x = x + 1
If A(i, 1) = str2 Then y = y + 1
Next i
[e2] = x: [f2] = y
End Sub

求助用vba条件统计2.rar (16.19 KB, 下载次数: 13)

爱疯 · 发表于 2012-11-21 14:52

问题：

1）不用VBA，不行么？

2）E1是汉字呀，是不是想说根据E2?

3）为什么是根据E1？

4）b5为什么是空格，这个现象，和你的数据源有什么关系吗？

5）你要处理的数据源是怎样一个范围？

清华 · 发表于 2012-11-21 14:57

爱疯发表于 2012-11-21 14:52
问题：

1）不用VBA，不行么？

必须用vba的。
根据E1查找统计出B列相同的个数。
B列有空格的

爱疯 · 发表于 2012-11-21 15:07

Sub 按钮1_Click()
Dim A, str1, str2, i, x, y
str1 = "成功": str2 = "失败"
A = Range("b1:b" & Range("b65536").End(xlUp).Row)
For i = 1 To UBound(A)
If A(i, 1) = str1 Then x = x + 1
If A(i, 1) = str2 Then y = y + 1
Next i
[e2] = x: [f2] = y
End Sub

求助用vba条件统计2.rar (16.19 KB, 下载次数: 13)

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

[已解决]求助用vba条件统计

评分