如何根据相关的条件,去统计出现的个数

kenleong

请问各位高手, 我要把no.这一项作为主要条件,统计为0 和1中, 计算section 2中A,B,C,D,E,F….Z出现的次数, 如何写VBA? 谢谢

Number	no.	section 1	section 2
500000002	0	0B0002	B
500000004	0	0D0004	D
500000007	0	0G0007	G
500000009	0	0I0009	I
500000011	0	0K0011	K
500000037	0	0A0037	A
500000040	0	0D0040	D
500000041	0	0F0041	F
500000046	0	0D0046	D
500000047	0	0F0047	F
500000049	0	0G0049	G
500000050	0	0H0050	H
500000055	0	0A0055	A
500000015	1	0C0015	C
500000018	1	0F0018	F
500000020	1	0B0020	B
500000022	1	0A0022	A
500000025	1	0D0025	D
500000026	1	0F0026	F
500000027	1	0F0027	F
500000028	1	0A0028	A
500000029	1	0B0029	B
500000030	1	0C0030	C
500000031	1	0D0031	D
500000036	1	0F0036	F

pjiang

Sub test()
With Sheets(1)
rec = .Range("C65536").End(xlUp).Row
For i = 2 To rec
    bb = .Cells(i, 2)
    dd = .Cells(i, 4)
    'MsgBox (dd = "A")
    Select Case bb
      Case "0"
           Select Case dd
                  Case "A"
                     a1 = a1 + 1
                  Case "B"
                     b1 = b1 + 1
                  Case "C"
                     c1 = c1 + 1
                  Case "D"
                     d1 = d1 + 1
                  Case "E"
                     e1 = e1 + 1
                  Case "F"
                     f1 = f1 + 1
                  Case "G"
                     g1 = g1 + 1
                  
           End Select
      Case "1"
            Select Case dd
                  Case "A"
                     a2 = a2 + 1
                  Case "B"
                     b2 = b2 + 1
                  Case "C"
                     c2 = c2 + 1
                  Case "D"
                     d2 = d2 + 1
                  Case "E"
                     e2 = e2 + 1
                  Case "F"
                     f2 = f2 + 1
                  Case "G"
                     g2 = g2 + 1
           End Select
    End Select
Next
End With
End Sub

hfwufanhf2006

这类统计，数据透视分分钟就搞定了。但大多数人都不爱用数据透视，坚持要自己用vba写代码，我也不知道为什么？