excel表格中删除某列重复的的内容，其所在行也相应删除.

2024-11-09 10:18:06

推荐回答（4个）

回答1：

以你的A列和 D 列为重复依据

1、A列排序

2、工具栏-----宏------编辑器-----双击Sheet1表------右侧空白处输入代码

Option Explicit

Private Sub CommandButton1_Click()

删除重复行

End Sub

3、本对话框------工具栏----插入----模块-----双击模块1-----右侧输入代码

Option Explicit

Sub 删除重复行()

Dim iR As Long

Application.ScreenUpdating = False

iR = [a65536].End(xlUp).Row

Range("F3:F" & iR).FormulaR1C1 = "=IF(AND(RC[-3]=R[-1]C[-3],RC[-5]=R[-1]C[-5]),NA(),"""")"

Range("F1:F" & iR).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete

Columns("F:F").ClearContents

Application.ScreenUpdating = True

End Sub

关闭该对话框

4、右键点击excel工具栏空白处------选择控件工具箱------单击里面的命令按钮------在excel表格空白处画出按钮--------右击按钮----查看代码----双击sheet1----右侧出现第一个代码------双击模块1-----右侧出现第二个代码-----关闭该对话框

5、点击控件工具箱左上角按钮既推出设计模式

6、点击按钮------A列和D列同时重复的数据删除多余的

**********************************************为安全考虑你要做备份表**********************8****************

回答2：

选中需要删除的重复列,比如,D列有重复,选中D1:D9,高级筛选,不重复值,确定;定位可见单格,CTRL+A
复制到剪切版,把原表删除,再粘贴就可以啊

回答3：

选中你的数据区域
数据-筛选-高级筛选-选择不重复的数据勾上
把筛选结果拷贝到新表即可

回答4：

没必要搞那么复杂,用排序就行了,多排几次,想删除啥就删除啥