菜鸟想统计一下每种矿泉水的领用情况

66423121

菜鸟想统计一下每种矿泉水的领用情况，看哪些人领了，谁领的最多。请高手帮忙，谢谢大家！

	小明	小马	小丽	小张	小王
依云	小明7		小丽22		小王84
农夫山泉	小明23	小马86		小张39
雀巢		小马13	小丽43		小王42
娃哈哈	小明62			小张42	小王3
景田	小明83		小丽12		小王59
崂山		小马62		小张50	小王13
百岁山	小明36		小丽6	小张42
怡宝		小马72		小张4	小王75
屈臣氏			小丽12		小王91
恒大冰泉	小明89	小马31	小丽3	小张79

duquancai

没啥意思！扯分“姓名”和之后的“数字”

66423121

上面贴的图，是运行后想得到的结果

狗尾巴草儿

那你的源数据是啥样的，给个附件看看吧

66423121

源数据更新了

lsc900707

1. Sub gj23w98()
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     arr = Range("a1:f" & r)
   
4.     For i = 2 To UBound(arr)
   
5.         For j = 2 To UBound(arr, 2)
   
6.             If Len(arr(i, j)) Then
   
7.                 arr(i, j) = arr(1, j) & arr(i, j)
   
8.             End If
   
9.         Next
   
10.     Next
    
11.     Range("a1:f" & r) = arr
    
12. End Sub
    

复制代码

66423121

版主威武！

lsc900707

参考附件：