|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub test()
Dim r%, i%
Dim d, name, num
Set d = CreateObject("Scripting.Dictionary")
With Worksheets("700") '700是工作表的名称
r = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 2 To r
d(Trim(.Cells(i, 2))) = d(Trim(.Cells(i, 2))) + .Cells(i, 10)
Next
name = d.Keys
num = d.Items
.Cells(r + 3, 2).Resize(d.Count, 1) = Application.Transpose(name)
.Cells(r + 3, 10).Resize(d.Count, 1) = Application.Transpose(num)
End With
Set d = Nothing
End Sub
查找同名的数据,并相加.rar
(15.14 KB, 下载次数: 41)
|
评分
-
1
查看全部评分
-
|