網(wǎng)友提問：

放大圖片

我只知道工作表函數(shù)Unique在office365的Excel中有，其它版本尚不清楚，我寫兩個(gè)方案

在代碼中，我沒有使用With的簡便寫法，因?yàn)榫W(wǎng)友是新人，先會做再優(yōu)化，暫時(shí)先讓提問者看懂每一步的思路。如果會PowerQuery M函數(shù) 其實(shí)這個(gè)就分個(gè)組的事兒。

代碼思路：

1、在一開始新建一個(gè)叫孫興華的工作表，做緩存區(qū)域，最后刪除它

2、確定Sheet1最大行最大列

3、字典去重，得到類別不重復(fù)值的數(shù)組，我寫成?brr = 字典.Keys 是為了照顧新人

4、篩選Sheet1表，第一次篩花，將a2:d8復(fù)制到孫興華這張表，在Sheet1表指定位置寫上文字和平均值（平均值保留兩位小數(shù)），以此類推繼續(xù)寫草...如果還有繼續(xù)寫樹

5、每寫完一個(gè)記得將孫興華這張表清空，以防第二次復(fù)制內(nèi)容沒有第一次的行數(shù)多，造成統(tǒng)計(jì)時(shí)還有上次的數(shù)據(jù)

因?yàn)閛ffice365中有Unique函數(shù)可以代替字典去重

最終結(jié)果：

ExcelVBA及WordVBA篇：https://www.bilibili.com/video/BV1rt4y1a72y

更多教程：https://www.bilibili.com/read/cv10222110