作者：绿色风
分类：
时间：2022-08-18
浏览：90
楼主
hlxz |
筛选多列不重复值工具
可以 本工作表 上显示结果
也可以另外一个工作表上显示结果
今天是我的生日
为此源码和大家分享
因为 是vb 写 的 dll
所以我就 不改成vba 了
- Private Sub gj_筛选多列不重复工具()
- On Error Resume Next
- Dim EB, BTrange As Range, XZrange As Range
- Dim 表格ONE, 表格TWO
- Set EB = GetObject(, "Excel.application")
- EB.DisplayAlerts = False
- Dim Down
- Down = MsgBox("你是执行判断多列筛选不重复操作！" & vbCrLf & " 是否执行？", vbQuestion + vbYesNo, "系统提示")
- If Down = vbNo Then
- Exit Sub
- End If
- 'BTDZ标题地址
- 10000: Set BTrange = EB.InputBox(prompt:="请在工作表上选择多列筛选不重复的区域", Title:="系统信息", Type:=8)
- If BTrange.Rows.Count < 1 Then
- MsgBox "请重新选择工资条标题的区域", 0, "系统提示"
- GoTo 10000
- End If
- 表格ONE = BTrange.Worksheet.Name
- 20000: Set XZrange = EB.InputBox(prompt:="请在工作表上选择筛选结果放置区域", Title:="系统信息", Type:=8)
- If XZrange.Rows.Count < 1 Then
- MsgBox "请重新选择工资条标题的区域", 0, "系统提示"
- GoTo 20000
- End If
- 表格TWO = XZrange.Worksheet.Name
- EB.Sheets(表格ONE).Range(BTrange.Address).Select
- EB.Sheets(表格ONE).Range(BTrange.Address).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=EB.Sheets(表格TWO).Range(XZrange.Address), Unique:=True
- Set BTrange = Nothing
- Set XZrange = Nothing
- Set EB = Nothing
- MsgBox "筛选多列不重复完成", 0 + 48, "小爪提醒你"
- EB.Sheets(表格TWO).Select
- EB.DisplayAlerts =true
- End Sub
|
2楼
bobij |
欢乐小爪好熟悉的QQ,今天是你的生日,第一个在这里祝你happy birthday.也感谢你的分享!嘿嘿! |
3楼
amyee |
虽然不认识，生日是一定要说一句生日快乐的。生日快乐，天天开心。 |
4楼
sy053 |
再次谢谢小爪，谢谢你的帮助。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一