|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub t()
- Dim i, d, e, g, ii
- Set d = CreateObject("Scripting.Dictionary")
- Set e = CreateObject("Scripting.Dictionary")
- Set g = CreateObject("Scripting.Dictionary")
- Set ii = CreateObject("Scripting.Dictionary")
- For Each sh In Sheets
- If sh.Name <> "汇总" Then
- For i = 3 To sh.[a65536].End(3).Row
- If sh.Range("b" & i) <> "" Then
- d(sh.Range("b" & i).Value) = d(sh.Range("b" & i).Value) + 1
- e(sh.Range("b" & i).Value) = e(sh.Range("b" & i).Value) + sh.Range("e" & i)
- g(sh.Range("b" & i).Value) = g(sh.Range("b" & i).Value) + sh.Range("g" & i)
- ii(sh.Range("b" & i).Value) = ii(sh.Range("b" & i).Value) + sh.Range("i" & i)
- End If
- Next i
- End If
- Next
- For i = 4 To [m65536].End(3).Row
- Range("n" & i) = d(Range("m" & i).Value)
- Range("o" & i) = e(Range("m" & i).Value)
- Range("p" & i) = g(Range("m" & i).Value)
- Range("q" & i) = ii(Range("m" & i).Value)
- Next i
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|