Excel的小问题大难题

假设A1=内容a
A2=内容b
A3=内容c
A4=内容b
......

则 B1=IF(COUNTIF($A$1:A1,A1)=1,A1," ")

B2=IF(COUNTIF($A$1:A2,A2)=1,A2," ")

下拉一下。

再进行筛选，删除 空格 单元格，即可。

想了好久了，这样可以吗？

你试试，祝成功！

方法有很多, 没有十全十美的方法, 有些要写宏代码, 有些公式太长及极难理解, 有些改变原有排序, 有些不保留原有数据, 有些不会自动更新, 考虑众多因子后, 我提供下列方法, 缺点是 要辅助列
假设内容在A3:A100
用B列作辅助, 在B3输入下列公式
=IF(COUNTIF(A$3:A3,A3)-1,"",ROW())
下拉至 B100

在C3输入数组公式:
=INDEX(A$3:A$100,MATCH(SMALL(B$3:B$100,ROW(A1)),B$3:B$100,0),1)
按 Ctrl + Shift + Enter 三键输入
将C3 下拉直至出现 #NUM!

C列便是你要的结果

先将该列数据排序,然后用"数据"->"筛选"->"高级筛选",选中"选择不重复的记录",点"确定"。

假如所选择的【内容*】项目都在表格A列，写一个按钮吧。
代码如下：
Private Sub CommandButton1_Click()
Dim strSheetName As String, strColumnLetter As String

strSheetName = "Sheet1" ' 删除工作表中的重复行
strColumnLetter = "A"