当前位置：首页 - 正文

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

发布网友发布时间：2022-05-01 22:38

共4个回答

热心网友时间：2022-06-24 11:10

以你的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****************

热心网友时间：2022-06-24 11:11

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

热心网友时间：2022-06-24 11:11

选中你的数据区域
数据-筛选-高级筛选-选择不重复的数据勾上
把筛选结果拷贝到新表即可追问删掉的那个格子所在的行也相应删除呀

热心网友时间：2022-06-24 11:12

没必要搞那么复杂,用排序就行了,多排几次,想删除啥就删除啥追问一万多行你来删？SB！

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com