|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
做工程的,厉害!基建狂魔,有你一份功劳,支持一下:
- Sub test()
- Sheet2.UsedRange.Offset(1).Clear
- Set d = CreateObject("scripting.dictionary")
- With Sheet1
- r = .Cells(Rows.Count, "K").End(xlUp).Row
- ar = .Range("K1:Q" & r)
- ReDim br(1 To r, 1 To 3): n = 0
- For i = 6 To r
- s = ar(i, 1) & "|" & ar(i, 2)
- If Len(s) - 1 Then
- If d.exists(s) Then
- p = d(s)
- br(p, 3) = br(p, 3) + ar(i, 7)
- Else
- n = n + 1
- d(s) = n
- br(n, 1) = ar(i, 1)
- br(n, 2) = ar(i, 2)
- br(n, 3) = ar(i, 7)
- End If
- End If
- Next
- Sheet2.Range("A2").Resize(n, 3) = br
- '-----------------
- r = .Cells(Rows.Count, "S").End(xlUp).Row
- ar = .Range("S1:Y" & r)
- ReDim br(1 To r, 1 To 3): n = 0: d.RemoveAll
- For i = 6 To r
- s = ar(i, 1) & "|" & ar(i, 2)
- If Len(s) - 1 Then
- If d.exists(s) Then
- p = d(s)
- br(p, 3) = br(p, 3) + ar(i, 7)
- Else
- n = n + 1
- d(ar(i, 1) & "|" & ar(i, 2)) = n
- br(n, 1) = ar(i, 1)
- br(n, 2) = ar(i, 2)
- br(n, 3) = ar(i, 7)
- End If
- End If
- Next
- Sheet2.Range("D2").Resize(n, 3) = br
- Sheet2.Range("a1").CurrentRegion.Borders.LineStyle = 1
- End With
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|