Question

如何更改下面的代码以使用名为＆＃34; name＆＃34;的特定工作表，而不是活动工作表？如果A列中的值与同一列中的值重复，则目标是删除整行，如果我在工作表中，则该工作正常。

Sub delete_duplicates_column_A()

    With ActiveSheet.Range("A:L")
        .Value = .Value 'removes formulas
        .RemoveDuplicates Columns:=1, Header:=xlYes ' remove duplicates only on column A
    End With


End Sub

Answer 1

试试这个：

Sub delete_duplicates_column_A()

    With Sheets("name").Range("A:L")
        .Value = .Value 'removes formulas
        .RemoveDuplicates Columns:=1, Header:=xlYes ' remove duplicates only on column A
    End With


End Sub

如果列A的其他行中存在列A的值，则完全删除该行

1 个答案: