请教如何自动抓取数据表中的姓名，并且自动根据姓名汇总工时和产量？

hoomean

请教如何自动抓取数据表中的姓名，并且自动根据姓名汇总工时和产量？
详情参见附件，谢谢各位了！
自动抓取姓名和自动根据项目汇总.zip (8.06 KB, 下载次数: 23)

2013-6-25 16:37 上传

点击文件名下载附件
范例

f8b1987

数据透视表就行了，合并那么复杂

hoomean

我是想合并后做饼图，同时希望图表能根据源数据同步更新

Sevenjoy

我也想实现这个功能，有人回答你和我说下，哈哈哈

超级赛亚人牛逼

G5=INDEX($A:$A,SMALL(IFERROR(IF(MATCH($A:$A,$A:$A,)=ROW($1:$200),ROW($1:$200),10^4),10^4),ROW(A3)))&""  三键下拉

元気小飞侠

你试试附件的效果，里面按钮的可以不

元気小飞侠

附件发不来，只能发代码了

Sub 下棋法之多列汇总()
Dim d
Set d = CreateObject("scripting.dictionary")
Dim 棋盘(1 To 10000, 1 To 3)
Dim 行数
'h记录棋盘的行数
Dim arr, x
'arr装入源数据，x为arr的行数
Dim k
'k用于记录arr不重复值的行数,然后在棋盘中读入新数据
'不重复的数据会直接加到棋盘数据，不必格外记录
arr = Range("a2:c" & Range("a65536").End(xlUp).Row)
For x = 1 To UBound(arr)
    If d.Exists(arr(x, 1)) Then
        行数 = d(arr(x, 1))
        棋盘(行数, 2) = 棋盘(行数, 2) + arr(x, 2)
        棋盘(行数, 3) = 棋盘(行数, 3) + arr(x, 3)
    Else
        k = k + 1
        d(arr(x, 1)) = k
        棋盘(k, 1) = arr(x, 1)
        棋盘(k, 2) = arr(x, 2)
        棋盘(k, 3) = arr(x, 3)
    End If
Next x
Range("G2").Resize(k, 3) = 棋盘
End Sub