时间戳

首页 > 解决方案 > 删除重复问题

excel - 删除重复问题

问题描述

我正在尝试使用以下代码删除重复的行：

    Sub removeDuplicates()
'
' Macro7 Macro

'Workbooks("Tester.xlsm").Worksheets(1).Range("A1", Range("F1").End(xlDown)).removeDuplicates Columns:=Array(1, 2), Header:=xlYes
Set Rng = Range("A1", Range("F1").End(xlDown))
    Workbooks("Tester").Worksheets(1).Rng.removeDuplicates Columns:=Array(1, 2), Header:=xlYes

End Sub

但是，它给了我一个运行时 1004 错误，我做错了什么？有针对这个的解决方法吗？顺便说一句，注释代码也不起作用，它会返回相同的错误消息

标签： excelvba

解决方案

该类Worksheet不提供该Rng属性。您似乎正在尝试重新使用Rng代码中定义的变量，但在该行完成运行之前尚未分配它。请改用Worksheet.Range属性：

Set Rng = Workbooks("Tester").Worksheets(1).Range("A1", Workbooks("Tester").Worksheets(1).Range("F1").End(xlDown))
Rng.removeDuplicates Columns:=Array(1, 2), Header:=xlYes

推荐阅读