EXCEL如何自动数据去重

1、EXCEL数据自动去重非常简单：我先附上源代码，只需要 4步操作零、先开启EXCEL的宏功能、开发工具，单击设计模式VifUdl 比 I枚. i.' jir -：Loy；Hfi:蟠 k凯-怎。加八绘制按钮谀计3< /帮助表单控件卜口U1的福国7 口0ActiveX 控件C 一J 数据去重 - A 0 M 11keke HAWEE第Itm - Excel件 开始液入缝圄页面布局公式数据审房视刿5U自I Basic 余!定安全性开发工具使用相对引.用设计侬帮助来赧 Microsoft Viisual for .ApplicatiGn - kf加 Excel COM加裁项 裁项加款项代

2、相Command.*. /5P文件翩视图区)廉XQ)工程-VBAP reject数据去重因国I叵R Microsoft Exctl j 剧 5h电mH (Shietl) -超)ThiEtforlcljoolige窗体围 EIL_¥Bfc_E0£OOl 自生模块祺 m曲1_2016口之支1+ 遥 VSATroJect + 廖 ¥BAFrflj«ct E 廖 VB*Froj*ct|_j.Mier DEoftH 昌ShetlC'L. * = dcOn"精制车间一曾 51十三期-iroc减(效尧去重T1GExcel对象 (Sheet!) fuL

3、 . . x.o 居住-CommandButtorl双击技钥 跑卜代码留1 然若在二Caption 中 改孤尸数据法递咯称)CcxnmandfiittQinL覆Ac?tleritcrAutoloalFaisAtoSizeFaiJackColor1 ansooocoonSapkStyli1 -4flkStylft0pa(Caption额扁居Zn&bJtdTru.»Fant等线Z&reClcr卿如期0 1雄Hei gkt61. 5Le£t6|Loak«dTru.»¥4宾学母库按分类序C o: ui<LBTiitt dulI C

4、onmaiL(3EijLi: ten巴三删除原来所有代码；将本文档最后的代码复制到代码窗口一保存文档即可'源代码:Public Sub Quchong()'删除重复数据_必须对对数据行进行排序，否则无法去重干净'删除 col 列的重复数据本例是删除标题为sheetl的EXCELS中A列(从A2单元格开始)的重复数据'qq:973490770'Application.ScreenUpdating = False'可根据实际情况修改下面三行的结尾值Dim sheetsCaption As String: sheetsCaption = ActiveS

5、heet.NameDim Col As String ' 确定哪一列Dim StartRow As Long ' 确定开始行,必须大于等于1Dim myRow As Long ' 确定总行数''以下不需要修改'Dim EndRow As Long: EndRow = Sheets(sheetsCaption).Range(Col & "65536").End(xlUp).RowDim Count_1 As Long: Count_1 = 0Dim Count_2 As Long: Count_2 = 0Dim N, i

6、 As Long: i = StartRow: N = 0Dim Str_i As String, ifDel%, flag_1 As BooleanApplication.ScreenUpdating = TrueMsgBox "必须提前对" & Col & " 列进行升或者降序排序，否则无法将重复项去除干净。准备去除" &StartRow & " 到" & myRow & " 之间的重复数据行"ifDel = MsgBox（"去重的数据列必须进行排序，否

7、则可能有遗漏的重复项；是否确认继续去重，“是”继续，“否”退出 ", vbYesNo）If ifDel = 6 ThenCol = "A"StartRow = 1myRow = 100Col = InputBox（" 请输入要去重的那一列的列号，例如 ABCD 等等 ", , "A"）StartRow = InputBox（" 请输入开始行的行号，例如 1、 2、 3.1000等等，必须大于等于 1 的整数", , "1"）myRow = InputBox（" 请输入查重所在

8、列的数据总行数，例如 5000，必须是正整数", , "100"）i = StartRowifDel = 0ifDel = MsgBox（" 是否删除重复行", vbYesNo）If ifDel = 6 ThenCount_1 = Count_1 + 1Elseflag_1 = FalseEnd IfWith Sheets(sheetsCaption)Str_i = .Range(Col & i).ValueDoN = N + 1.Range(Col & i).SelectIf .Range(Col & i + 1) =

9、 Str_i ThenIf flag_1 = True Then.Range(Col & i + 1).EntireRow.Delete'删除整行的话，i 不用加 1Else.Range(Col & i + 1).Value = ""i = i + 1'比较下一个End IfCount_2 = Count_2 + 1'计数重复数据ElseStr_i = .Range(Col & i + 1).Value'记录不重复数据End IfLoop While N < myRowEnd WithMsgBox "留

10、下 " & Count_1 & " 条不重复的数据"MsgBox "已经删除" & Count_2 & " 条重复的数据啦亲！么么哒！ ！ "Application.ScreenUpdating = TrueEnd IfEnd SubPrivate Sub CommandButton1_Click()QuchongEnd Sub曰力，文件 神修恰图君国魂唱ES招就助遗砒E、。口或团队四、去重操作1、单击“数据去重”按钮，按提示操作泡骷宝KS篇目f起; E>c= Wfng Cio 司ME CQM：O海1）曦海管七方晨包就牛凿后 同 EZ1-+ a弓%2、是否确认去重3、是否删除重复数据的整行，还是删除这个单元格234j