Question

我在excel工作表中删除了一些问题，我从一个列（第一个）中删除了重复项。当我使用＆＃34; RemoveDuplicates＆＃34;功能，我有一些错误＆＃34;代码1004＆＃34; 。＆＃34;总＆＃34;是我的工作表和＆＃34; rng＆＃34;定义并设置为范围，如下所示：

With total
    Set rng1 = .Range("A2:B" & .Range("A" & .Rows.Count).End(xlUp).Row)
End With
    rng1.RemoveDuplicates

Answer 1

我开始录制一个宏并进行了我猜你所描述的练习。

它生成了以下代码：

Columns("A:B").Select
ActiveSheet.Range("$A:$B").RemoveDuplicates Columns:=1, Header:=xlNo

除了我删除了特定的行引用，以便它检查整个列。这有用吗？

Answer 2

您要去的地方

Sub XYZ()

Dim WB As Workbook
Dim total As Worksheet
Dim cdLR As Long

Set WB = Workbooks("name_of your_workbook.xlsm")
Set total = WB.Sheets("total")

With total
cdLR = total.Cells(Rows.Count, "A").End(xlUp).Row
Range("A2:B" & cdLR).RemoveDuplicates Columns:=1
End With

End Sub

VBA删除列中的重复项

2 个答案: