Excel 问题：如何查询一个表中同一列是否有相同数据。

Question

例如一个工作表中，A列为所有学生的论文题目，是否能够通过函数快速找到有没有相同的论文题目（不特定的某个题目），也就是查询是否有学生题目相同，能否知道每个相同的数据有多少个？
通过排序方式可以找到，但是办法太笨，而且要一行行看下来，如果数据量很大，这个工作太累，特别是论文题目很长的时候。

Answer 1

在另一列输入=countif(A$1:A1,A1)，回车，当鼠标在单元格的右下角出现十字时双击，出现的1234------即是相同的次数第几次，或者输入=COUNTIF(A:A,A2&"*")回车，当鼠标在单元格的右下角出现十字时双击，出现的就是相同的多少个本回答被提问者和网友采纳

Answer 2

选中数据区域（排除标题），执行 CheckData
Sub CheckData()
If Selection.Count < 2 Then End
Call Sort
dt = CheckRepeat
MsgBox (dt)
dt = CheckInterrupt
MsgBox (dt)
End Sub
Sub Sort()
Selection.Sort Key1:=Cells(Selection.Row(), Selection.Column()), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
End Sub
Function CheckRepeat() As String
dt = ""
c1 = 1
For Each rg1 In Selection
cf = 0
c2 = 1
For Each rg2 In Selection
If c2 > c1 Then
If rg1 = rg2 Then cf = cf + 1
End If
c2 = c2 + 1
Next
If cf > 0 Then
If InStr(1, dt, rg1) = 0 Then
dt = dt & rg1 & " 有 " & cf & " 个重复数据" & Chr(13)
End If
End If
c1 = c1 + 1
Next
If dt = "" Then dt = "没有重复数据！"
CheckRepeat = dt
End Function

Answer 3

这个不如把工作表导出到Access中去解决更方便。

Answer 4

输入=countif(A$1:A1,A1)，回车，

Answer 5

excel筛选能解决吧。