如题所述
比如对于A列数据，在B1输入公示：=COUNTIF(A:A,A1)然后自动填充下面的内容，若结果为1表示A1内容在A列中是唯一的，结果2表示有2个相同的A1值，以此类推。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2010-05-14
用函数解决的方法参考的是
重复的以公式找出来，现且能在后面显示重复数量
数量大于2的即使重复的，重复的下面就不显示数字了
假设你的数据在A列从A1开始
在B1输入以下公式，下拉填充即可
=if(countif(a$1:a1,a1)=1,countif(a:a,a1),"")
重复的以公式找出来，现且能在后面显示重复数量
数量大于2的即使重复的，重复的下面就不显示数字了
假设你的数据在A列从A1开始
在B1输入以下公式，下拉填充即可
=if(countif(a$1:a1,a1)=1,countif(a:a,a1),"")
第2个回答 推荐于2016-04-01
Sub PList()
Dim i&, Myr&, Arr
Range("B:B").Clear
Application.ScreenUpdating = False
Myr = Sheet1.[A65536].End(xlUp).Row
Arr = Sheet1.Range("A1:A" & Myr)
For i = 2 To UBound(Arr)
If Arr(i, 1) <> Arr(i - 1, 1) Then
Cells(i, 2) = Arr(i, 1)
End If
Next
Application.ScreenUpdating = True
End Sub
检查B列相同的单元格，放在C列本回答被提问者采纳
Dim i&, Myr&, Arr
Range("B:B").Clear
Application.ScreenUpdating = False
Myr = Sheet1.[A65536].End(xlUp).Row
Arr = Sheet1.Range("A1:A" & Myr)
For i = 2 To UBound(Arr)
If Arr(i, 1) <> Arr(i - 1, 1) Then
Cells(i, 2) = Arr(i, 1)
End If
Next
Application.ScreenUpdating = True
End Sub
检查B列相同的单元格，放在C列本回答被提问者采纳
