|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub aaa()
- arr = Sheets(1).UsedRange
- Set d = CreateObject("scripting.dictionary")
- a = 2
- For j = 2 To UBound(arr)
- If d.exists(arr(j, 3)) Then
- r = d(arr(j, 3))
- arr(r, 7) = arr(j, 7) + arr(r, 7)
- arr(r, 10) = arr(j, 10) + arr(r, 10)
- Else
- If a <> j Then
- For i = 1 To UBound(arr, 2)
- arr(a, i) = arr(j, i)
- Next i
- End If
- d(arr(j, 3)) = a
- a = a + 1
- End If
- Next j
- Application.ScreenUpdating = False
- Sheets(1).Copy after:=Sheets(1)
- Sheets(2).Name = "结果"
- Sheets(2).UsedRange.ClearContents
- Sheets(2).[a1].Resize(a - 1, UBound(arr, 2)) = arr
- Application.ScreenUpdating = True
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|