请老师帮我写一个按条件统计的代码

hbhsfeng · 发表于 2018-10-5 08:52

本帖最后由 hbhsfeng 于 2018-10-5 15:32 编辑

表格中有很多数据，按条件统计，并把统计结果填在表格里。
表格里面有说明。在这里先说声谢谢！

蓝桥玄霜 · 发表于 2018-10-5 10:15

请见代码。

yurq918 · 发表于 2018-10-5 10:18

这东西是毫无规律的。。

hbhsfeng · 发表于 2018-10-5 12:01

yurq918 发表于 2018-10-5 10:18
这东西是毫无规律的。。

不管它有没有规律，我需要这样的代码。

hbhsfeng · 发表于 2018-10-5 12:14

蓝桥玄霜发表于 2018-10-5 10:15
请见代码。

我刚才试了一下，统计有误。

hbhsfeng · 发表于 2018-10-5 12:16

你看下面截图。

20120501 · 发表于 2018-10-5 12:50

方法如版主的回复，中间加入了清除K2:T2的值，否则会保留上一次的结果。
加入单元格的值转换为字符串，统一模式。

Private Sub CommandButton1_Click()
Dim hm1%, hm2%, hm3%
Dim i%, j%, cellValue$
Dim dict
Dim k, v
hm1 = Sheet1.Cells(1, 4)
hm2 = Sheet1.Cells(1, 5)
hm3 = Sheet1.Cells(1, 6)
Set dict = CreateObject("Scripting.Dictionary")
For i = 4 To 10
For j = 3 To Sheet1.[b65535].End(xlUp).Row - 3
If Sheet1.Cells(j, i) = hm1 And Sheet1.Cells(j + 1, i) = hm2 And Sheet1.Cells(j + 2, i) = hm3 Then
cellValue = Sheet1.Cells(j + 3, i)
dict(cellValue) = dict(cellValue) + 1
End If
Next j
Next i
k = dict.keys
t = dict.items
Sheet1.Range("K2:T2").ClearContents
For i = 0 To UBound(k)
Debug.Print (k(i) & "==" & t(i))
Sheet1.Cells(2, k(i) + 11) = t(i)
Next
End Sub

复制代码

excelvlookup · 发表于 2018-10-5 12:54

777,是统计7还是统计3

excelvlookup · 发表于 2018-10-5 12:55

统计次数是d3:d8000+e3:e8000+f3:f8000吗？

excelvlookup · 发表于 2018-10-5 12:58

还是d3:d8000统计一次写到K：T再统计e3:e8000再写到K：T。。。

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

[已解决] 请老师帮我写一个按条件统计的代码