ExcelVBA 筛选统计
网友提问：
放大图片
我只知道工作表函数Unique在office365的Excel中有，其它版本尚不清楚，我写两个方案
在代码中，我没有使用With的简便写法，因为网友是新人，先会做再优化，暂时先让提问者看懂每一步的思路。如果会PowerQuery M函数 其实这个就分个组的事儿。
代码思路：
1、在一开始新建一个叫孙兴华的工作表，做缓存区域，最后删除它
2、确定Sheet1最大行最大列
3、字典去重，得到类别不重复值的数组，我写成 brr = 字典.Keys 是为了照顾新人
4、筛选Sheet1表，第一次筛花，将a2:d8复制到孙兴华这张表，在Sheet1表指定位置写上文字和平均值（平均值保留两位小数），以此类推继续写草...如果还有继续写树
5、每写完一个记得将孙兴华这张表清空，以防第二次复制内容没有第一次的行数多，造成统计时还有上次的数据
因为office365中有Unique函数可以代替字典去重
最终结果：
ExcelVBA及WordVBA篇：https://www.bilibili.com/video/BV1rt4y1a72y
