·假期学英语系列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配合鼠标左键，选择不连续区域。

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

·Office2003 Word/Excel等双击默认打开方式修复12-12

·去掉word中的隔行回车03-23

·Excel 2007 筛选后只复制显示区域内容12-10

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

·sql server 删除大量数据时超时11-09

·如何在Word中输入国际音标08-30

·常见屏幕截图方法08-11

·解决Win8 IE浏览器某些网站显示不全01-30

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

·安卓手机因软件安装失败解决方法06-19

最新更新

阅读排行

·qlv格式视频转mp4方法08-10

·excel里如何把一列多行等分成多列？07-13

·Excel提取多列中唯一值07-13

·快速创建以当前日期命名的文件夹05-15

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

·出于安全原因，Firefox 取消了该请求03-22

·视频在线解析网址03-05

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

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

·word排版技巧整理08-02

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

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

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

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

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

·win7 隐藏文件夹设置方法08-14

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