|
发表于 2014-10-29 05:30
|
显示全部楼层
本楼为最佳答案
- Sub Macro1()
- Dim arr, brr, d, i&, j%, zf$, x&
- Set d = CreateObject("scripting.dictionary")
- arr = Range("a1").CurrentRegion
- brr = Sheet1.[a1:m25]
- x = Sheet1.[a:a].Find([c1], lookat:=xlWhole).Row
- For i = 4 To x
- For j = 2 To UBound(brr, 2)
- z = IIf(Sheet1.Cells(i, j).Interior.ColorIndex = 44, 0.5, 1)
- zf = brr(3, j) & "," & brr(i, j)
- d(zf) = d(zf) + z
- Next
- Next
- For i = 3 To UBound(arr)
- zf = arr(i, 1) & "," & arr(i, 2)
- arr(i, 3) = d(zf)
- Next
- Range("c1").Resize(UBound(arr)) = Application.Index(arr, 0, 3)
- End Sub
复制代码 |
评分
-
查看全部评分
|