Excel提取多列中唯一值
来源:百度经验
发布时间:2018-07-13 15:29:00
查看次数:
内容提要:Excel 请教怎么做提取多列中唯一值的公式
建议你用VBA来处理,详细代码如下,使用方法请参考代码下方内容
Sub T()
Dim R, Rng1, Rng2, D
Set D = CreateObject("scripting.dictionary")
Set Rng1 = Application.InputBox("请选择提取不重复值的单元格区域:", Type:=8)
For Each R In Rng1
If R.Value <> "" Then
D(R.Value) = ""
End If
Next
Set Rng2 = Application.InputBox("请选择结果存储的位置:", Type:=8)
Rng2.Cells(1, 1).Resize(D.Count, 1) = Application.Transpose(D.keys)
End Sub
Excel VBA(教你怎么用VBA)_百度经验
http://jingyan.baidu.com/article/4ae03de32663953efe9e6b47.html
可以按住Ctrl配合鼠标左键,选择不连续区域。
- 相关文章
- ·使用SQL语句清空数据库所有表的数据11-08·快速增加共享打印机的代码05-17·CKEditor 简单使用和配置02-26·word文档单词自动加音标的宏代码11-04·合并当前目录下所有工作簿的全部工作01-10·如何跨路由共享打印机02-13·qlv格式视频转mp4方法08-10·四行选项变一行的快捷方法11-14·备份windows7专业版MAK密钥激活文件03-02·解决Win8 IE浏览器某些网站显示不全01-30
- 最新文章
- ·Win10系统开机启动文件夹在哪里?04-16·十秒免工具激活windows 1002-25·批量替换word文档中的第一行作为文件的文件名06-21·连接打印机时需要输入用户名密码怎么办?05-15·免魔法使用 New Bing 新方案03-18·Win10电脑账号密码设置、修改、取消12-06·[亲测有效]excel批量修改文件名10-29
- 阅读排行
- ·如何让试题的ABCD选项对齐04-13·word排版技巧整理08-02·word 如何自动生成目录08-02·不同电脑文件字体改变了的解决方法12-15·Excel 进行学生成绩统计分析03-13·我的电脑图标不见了,怎么找回来!09-14·Win10电脑的一些安装提示12-03·Word高级替换技巧03-05·Excel如何批量插入分页符02-12·制作Word2003选择性粘贴快捷键07-09
2008-2024 | www.zshunj.cn |www.yykz.net
点击这里识别二维码关注公众号
点击这里识别二维码关注公众号