|
自己写的一个统计宏,不知道错在哪里,求指导
所要求的是 13年热点投诉汇总表中的I列,
如果V600表的P或Y列,含13年热点投诉汇总表的关键字1,或者关键字2,计数加1,然后将汇总的数据放在13年热点投诉汇总表J列- Sub 投诉量()
- Set d1 = CreateObject("Scripting.Dictionary")
- arr = Sheets("13年热点投诉汇总").UsedRange
- brr = Sheets("v600").UsedRange
- On Error Resume Next
- k = UBound(arr)
- ReDim crr(1 To k)
- For i = 2 To 7
- d1(arr(i, 16)) = arr(i, 15)
- Next
- For i = 2 To UBound(arr)
- n = 0
- If arr(i, 12) = "" Then arr(i, 12) = "空格"
- If arr(i, 13) = "" Then arr(i, 13) = "空格"
- aa = arr(i, 12)
- bb = arr(i, 13)
- For j = 1 To UBound(brr)
- If brr(j, 44) = d1(arr(i, 1)) Then
- If brr(j, 16) Like "*" & aa & "*" Or brr(j, 16) Like "*" & bb & "*" Or brr(j, 25) Like "*" & aa & "*" Or brr(j, 25) Like "*" & bb & "*" Then
- n = n + 1
- End If
- End If
- Next
- crr(n) = n
- Next
- Sheets("13年热点投诉汇总").Range("I2:I" & UBound(arr)) = ""
- ' MsgBox crr(2)
- Sheets("13年热点投诉汇总").[I1].Resize(UBound(crr)) = crr
- Sheets("13年热点投诉汇总").[I1] = "V600投诉量"
- MsgBox "处理完毕"
- End Sub
复制代码 用上述代码统计出来的数量 全部是1,求坛子里的大师指导一下,谢谢!
热点筛选.rar
(338.97 KB, 下载次数: 17)
|
|