|
分类统计求助,谢谢
- Sub 计数()
- Dim d, oldarr, arr(), lastrow, i As Byte, j As Integer, str1 As String, str2 As String
- Set d = CreateObject("scripting.dictionary")
- oldarr = Range("t4:u16")
- For i = 1 To 13
- d(oldarr(i, 1) & oldarr(i, 2)) = 0
- Next
- arr = Range("a1").CurrentRegion
- lastrow = UBound(arr)
- For j = 2 To lastrow
- str1 = arr(j, 3) & arr(j, 4) & arr(j, 5) & arr(j, 6)
- str2 = arr(j, 7) & arr(j, 8) & arr(j, 9) & arr(j, 10) & arr(j, 11) & arr(j, 12)
- d(str1) = d(str1) + 1
- d(str2) = d(str2) + 1
- Next
- Range("v4:v16") = Application.Transpose(d.ItemS)
- End Sub
复制代码
改短了一下
|
|