请问在EXCEL中这个如何写函数呢？

在d1输入公式=if(countif(b$1:b1,b1)=1,"",2),下拉-选中a1:d1-数据-筛选-点d1的倒三角-选2-选中全部筛选结果-右键该选中区域-删除即可

要把重复行直接去掉，看看VBA是否可以，函数公式是不可能的。
如果要找出哪些项目是重复的，可以在d1中输入：
=if(countif(b:b,b1)>1,b1,"")
公式下拉

只要b列有重复出现的就会显示它的"名字"，筛选出来删除重复部分即可。

你可以用数据透视表，
将b列拉在列，数据区域随便拉一个，能显示就行

用不着函数，你筛选一下就行了，把筛选出来的数据除第一个，其余都删除。

数据--筛选