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配合鼠标左键，选择不连续区域。

相关文章: ·如何更改Excel默认另存为的路径？04-16

·word文档去除锁定保护手动方法04-12

·教你如何下载微信公众号的音频文件06-02

·笔记本小键盘切换的问题08-13

·如何输入100以内的带圈字符？07-20

·Windows 7系统的硬盘安装方法05-13

·备份windows7专业版MAK密钥激活文件03-02

·少点鼠标，让手轻松一些10-29

·解决“确实允许此网页访问“剪切板”吗？”问题09-16

·Word批量删除自选图形的办法！07-16

2008-2024 | www.zshunj.cn |www.yykz.net
点击这里识别二维码关注公众号