你用的07的吗?有删除重复项这个功能;数据透视表 有分类汇总功能 也可以做到这一点; 或者录制一个宏,(工具,宏,录制新宏,停止录制,然后再工具,宏,编辑,把里面的代码全部删除,写上下面的代码,把后边的注释删掉) (Sub Macro1() Range("A1:A10").Select "(A!,A10是你要选择的列)" For i = 1 To 9 "1为起始行,9 为总行数减去1" For j = i +1 To 10 "10 为总行数" If Range("A" & i) = Range("A" & j) Then "A为你要选择的列" Rows((j) & ":" & (j)).Select Selection.Delete Shift:=xlUp End If Next j Next i End Sub 然后视图,工具栏,绘图,把绘图前面勾上,点一下矩形,在表格的任一个地方画一个小的矩形,然后右键指定宏,(指定刚才录制的那个宏)点一下这个小矩形就ok了。