【问题标题】:Delete row if duplicate on more than a col如果在多个列上重复,则删除行
【发布时间】:2020-03-26 15:58:15
【问题描述】:

我有这个代码:

Workbooks("Test.xlsx").Worksheets("Sheet1").Range("A:D").RemoveDuplicates Columns:=1, Header:=xlNo

问题在于,如果找到至少 1 个重复项,则会删除整行。

我需要这样的东西:

If (duplicate is found on on columns A & C) then delete entire row 

我的意思是删除A列上面/下面行重复的行,C列包含上面/下面行的重复。

任何帮助将不胜感激! 谢谢!

【问题讨论】:

  • @Sid 这不是一个明显的解决方案,需要回答

标签: excel vba


【解决方案1】:

如有疑问,请录制宏。要录制宏,您可能希望看到Automate tasks with the Macro Recorder

录制宏时,请执行此操作...

  1. 选择您的范围
  2. 点击Data | Remove Duplicates
  3. 在删除重复对话框中,单击Unselect all 按钮。
  4. 点击 Col A 和 Col C
  5. 点击确定

你会得到一个类似这样的代码

YourRange.RemoveDuplicates Columns:=Array(1, 3), Header:=xlNo

【讨论】:

    猜你喜欢
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 2011-02-05
    • 2019-02-26
    • 2019-10-29
    • 2013-08-09
    • 2015-11-11
    • 1970-01-01
    相关资源
    最近更新 更多