如何引用存储的范围以删除Excel VBA中的重复项

2024-05-18 • 问答

我有几个Excel工作表，其中包含重复值的行将近200到500多个，我需要删除它们。由于行数变化很大，因此我需要获得删除重复项的功能，以某种方式使用动态范围。我要使用的解决方案是：

Sub RemoveDup()

    Dim SR as Range

    Range(Cells(2,1),Selection.End(xlDown)).Select

    Set SR = Selection

    activeSheet.Range(SR).RemoveDuplicates Columns:=1,Header:=xlNo 'This doesn't work.

End Sub

我上一条语句中的范围引用不起作用。我试图将它放在“带和不带＆的中间。”但这似乎也不是问题所在。

我应该如何引用我的存储范围？

xiaolongxiadoudou 回答：如何引用存储的范围以删除Excel VBA中的重复项

您可以尝试以下操作，这将在列A中获得包含数据的最后一行，然后使用该范围删除重复项：

Sub RemoveDup()
    SR = Cells(Rows.Count,"A").End(xlUp).Row
    'get the last row with data on Column A

    Range("A2:A" & SR).RemoveDuplicates Columns:=1,Header:=xlNo
End Sub

excel range vba

本文链接：https://www.f2er.com/3125120.html

如何引用存储的范围以删除Excel VBA中的重复项

xiaolongxiadoudou 回答：如何引用存储的范围以删除Excel VBA中的重复项

大家都在问