Excel vba如何判断同一列中两个单元格中字符串相同（单元格不固定）

Question

如题所述

Answer 1

比如对于A列数据，在B1输入公示：=COUNTIF(A:A,A1)然后自动填充下面的内容，若结果为1表示A1内容在A列中是唯一的，结果2表示有2个相同的A1值，以此类推。

Answer 2

用函数解决的方法参考的是http://zhidao.baidu.com/question/152154949.html

重复的以公式找出来，现且能在后面显示重复数量

数量大于2的即使重复的，重复的下面就不显示数字了

假设你的数据在A列从A1开始
在B1输入以下公式，下拉填充即可

=if(countif(a$1:a1,a1)=1,countif(a:a,a1),"")

Answer 3

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列本回答被提问者采纳

Answer 4

用函数解决的方法参考的是http://zhidao.baidu.com/question/152154949.html

重复的以公式找出来，现且能在后面显示重复数量

数量大于2的即使重复的，重复的下面就不显示数字了

假设你的数据在A列从A1开始
在B1输入以下公式，下拉填充即可

=if(countif(a$1:a1,a1)=1,countif(a:a,a1),"")

Answer 5

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列本回答被提问者采纳