删除重复的行。 （types不匹配错误）

如果不是LRow = Range（“C65536”），则会出现types不匹配错误。End（xlUp）.Row =“”Then“

Private Sub DEDUPLICATE_Click() Application.ScreenUpdating = False Dim n As Long Dim LRow As Long If Not LRow = Range("C65536").End(xlUp).Row = "" Then LRow = Range("C65536").End(xlUp).Row For n = LRow To 6 Step -1 If Application.WorksheetFunction.CountIf(Range("C6:C" & n), Range("C" & n).Text) > 1 Then Range("C" & n).EntireRow.Delete End If Next n End If 

这段代码应该删除除空行以外的所有重复实体。 试图将数据types从Long更改为Variant，但删除所有行，包括空的。

Answer 1

尝试这个：

 Private Sub DEDUPLICATE_Click() Application.ScreenUpdating = False Dim n As Long Dim LRow As Long LRow = Range("C65536").End(xlUp).Row For n = LRow To 6 Step -1 If Application.WorksheetFunction.CountIf(Range("C6:C" & n), Range("C" & n).Text) > 1 Then If Not Range("C" & n).Value = "" Then Range("C" & n).EntireRow.Delete End If End If Next n End Sub 

Answer 2

它是因为行数是一个数值，你正在比较它与一个string

 Private Sub DEDUPLICATE_Click() Application.ScreenUpdating = False Dim n As Long Dim LRow As Long If Not LRow = Range("C65536").End(xlUp).Row = 0 Then LRow = Range("C65536").End(xlUp).Row For n = LRow To 6 Step -1 If Application.WorksheetFunction.CountIf(Range("C6:C" & n), Range("C" & n).Text) > 1 Then Range("C" & n).EntireRow.Delete End If Next n End If End Sub 

谢谢