Question

我需要一个函数来检测格式化为文本的重复项。

这无法区分“46.500”和“46.5000”。 CountIf可能将单元格作为数字进行比较。这些单元格格式为文本。我试图在数字之前添加一个撇号。

Function check_duplicates(column As String)
LastRow = Range(column & "65536").End(xlUp).row
For x = LastRow To 1 Step -1

    If Application.WorksheetFunction.CountIf(Range(column & "1:" & column & LastRow), Range(column & x).Text) > 1 Then
        check_duplicates = x  ' return row with a duplicate
        x = 1   
    Else
         check_duplicates = 0
    End If
Next x
End Function

有谁知道如何强制CountIf将单元格作为字符串进行比较或以其他方式检查VBA中的重复项？

Answer 1

在这种情况下，我通常会觉得很有用。

Dim cn As Object
Dim rs As Object

strFile = Workbooks(1).FullName
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _
    & ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";"

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open strCon

strSQL = "SELECT F2, Count(F2) AS CountF2 FROM [Sheet1$] " _
  & "GROUP BY F2 HAVING Count(F2)>1 "
rs.Open strSQL, cn

s = rs.GetString
MsgBox s

'' Or
Sheets("Sheet2").Cells(2, 1).CopyFromRecordset rs

Answer 2

假设所有“文本”单元格都是数字的文本表示，那么以下更改将起作用：

Function check_duplicates(column As String)
    Dim lastrow As Long
    Dim x As Long

    lastrow = Range(column & "65536").End(xlUp).Row
    For x = lastrow To 1 Step -1

        If Application.WorksheetFunction.CountIf(Range(column & "1:" & column & lastrow), Val(Range(column & x).Text)) > 1 Then
            check_duplicates = x  ' return row with a duplicate
            x = 1
        Else
         check_duplicates = 0
        End If
    Next x
End Function

它通过使用Val函数强制将条件单元格的值赋值给某个值

Answer 3

有几种使用VBA检查重复项的方法-但是，如果工作表公式可以帮助某人（可能看起来很困难？），那么下面的数组公式将通知您给定范围内的单元格是否唯一

=IF(MAX(COUNTIF(B$3:B$100,B3:B100))>1,"List has duplicates","List is unique")

由于这是一个工作表数组公式，因此您无需使用 Enter 完成输入公式，而是需要使用 Ctrl + Shift + 输入 。（有关更多信息，请参见下面的链接。）

（显然）该对象查看范围B3:B100。您可以将其更改为任何内容，但请注意，$一部分存在，而另一部分不存在。另外，如果您在较大范围（2000多个单元）上使用它，则每次更改单元都可能需要几秒钟来更新。

或者，您可以使用FormulaArray对象的Range属性，使用VBA以编程方式放置和删除公式。

Microsoft提供了有关数组公式here和here以及限制here的更多信息。

Answer 4

CountIf函数不将公式作为其第二个参数，因此第二个参数应为：

“=”＆amp;范围（列＆amp; x）。文本

Answer 5

这是基于Remou代码的新版本。这个更加通用，可以与MS Excel 2007一起使用。

Function check_duplicates(column As Integer)
' checks for duplicates in a column
' usage: column - numerical (A = 1, B=2 etc...)
' returns: "" - no duplicates, otherwise list of duplicates with numbers of occurrences

Dim cn As Object
Dim rs As Object

strFile = ActiveWorkbook.FullName
strSheet = ActiveWorkbook.ActiveSheet.Name

' connection string for Excel 2007
strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & _
";Extended Properties=""Excel 12.0 Xml;HDR=No;IMEX=1"";"

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open strcon

col = "F" & Trim(Str(column))

strsql = "SELECT " & col & ", Count(" & col & ") AS Count" & col & " FROM [" & strSheet & "$]" & _
"GROUP BY " & col & " HAVING Count(" & col & ")>1 "
rs.Open strsql, cn

If rs.BOF = True And rs.EOF = True Then
        check_duplicates = ""
    Else
        check_duplicates = rs.GetString
End If
End Function

检测格式为文本的重复项

5 个答案: