·假期学英语系列2：定语从句 ·人生与棋局 ·【双语阅读】关于生活的11个小暗示 ·2007-2014年广东高考英语语法填空真题及答案 ·三种非常奥妙的钱 ·2014年广东高考听说考试真题及原文材料和答案 ·教师备课教学经常用到的10种软件 ·十种教育方式让孩子超级反感 ·高三月考如果发现努力和成绩不成比例怎么办？ ·阿里巴巴上市，看教师如何“炼成”亿万富翁	年月日

网站首页

本站动态

资源共享

美文妙乐

教学教案

双语新闻

论文相关

辅助教学

教学软件

广东高考

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

扫一扫使用手机浏览或分享本页

·制作Word2003选择性粘贴快捷键07-09

·U盘使用误区面面观08-30

·办公室局域网打印机共享轻松设置09-22

·教培网网上培训快速及格技巧05-04

·Excel如何批量插入分页符02-12

·windows 2008 R2各版本激活180天05-03

最新更新

阅读排行

·JS 自动答题脚本07-01

·VBA文本类型转换成数值型05-06

·PS对扫描文件去除背景色04-26

·EXCEL表格如何删除零值03-29

·多列数据区域转换成一列VBA代码03-05

·excel如何取两个特定字符间的文字03-04

·合并当前目录下所有工作簿的全部工作01-10

·完美解决WPS 2019 中的 VBA 不能用的问题12-29

·Win10电脑的一些安装提示12-03

·微信公众号音频音乐提取方法10-19

·如何让试题的ABCD选项对齐04-13

·制作Word2003选择性粘贴快捷键07-09

·word排版技巧整理08-02

·任务栏上的显示桌面图标不见了，怎么办？09-17

·不同电脑文件字体改变了的解决方法12-15

·Windows 7删除WMP12，安装WMP11的方法02-19

·批量修改PPT字体和颜色的方法09-20

·word 如何自动生成目录08-02

·破解不能复制修改的word文档 06-13

·EXCEL每次打开都有一个personal.xls的解决方法05-21

快速导航	关于我们	联系我们
关于本站	选项对齐	网址www.zshunj.cn
本站帮助	免责声明	QQ：312000504
广告说明	英语科组	邮箱：JUN@ZSHUNJ.CN	微信公众号	站长微信
版权所有 2008-2019 高中英语教学交流网