时间戳

首页 > 解决方案 > 如果在多个列上重复，则删除行

excel - 如果在多个列上重复，则删除行

问题描述

我有这个代码：

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 包含重复的上/下行。

任何帮助，将不胜感激！谢谢！

标签： excelvba

解决方案

如有疑问，请录制宏。要录制宏，您可能希望查看使用宏录制器自动执行任务

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

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

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

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

推荐阅读