Excel 如果在多个列上重复,则删除行

Excel 如果在多个列上重复,则删除行,excel,vba,Excel,Vba,我有以下代码: Workbooks("Test.xlsx").Worksheets("Sheet1").Range("A:D").RemoveDuplicates Columns:=1, Header:=xlNo 问题是,如果发现至少一个重复项,它将删除整行 我需要这样的东西: If (duplicate is found on on columns A & C) then delete entire row 我的意思是删除A列上有重复的上/下行,C列上也有重复的上/下行的行 任何

我有以下代码:

Workbooks("Test.xlsx").Worksheets("Sheet1").Range("A:D").RemoveDuplicates Columns:=1, Header:=xlNo
问题是,如果发现至少一个重复项,它将删除整行

我需要这样的东西:

If (duplicate is found on on columns A & C) then delete entire row 
我的意思是删除A列上有重复的上/下行,C列上也有重复的上/下行的行

任何帮助都将不胜感激!
谢谢大家!

如有疑问,请记录宏。要录制您可能希望看到的宏

录制宏时,请执行以下操作

  • 选择您的范围
  • 单击
    数据|删除重复项
  • 在“删除重复项”对话框中,单击“全部取消选中”按钮
  • 点击A栏和C栏
  • 单击“确定”
  • 你会得到一个类似这样的代码

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

    @希德:这不是一个显而易见的解决办法,应该有一个答案