| 网站首页 | 本站动态 | 资源共享 | 美文妙乐 | 教学教案 | 双语新闻 | 论文相关 | 辅助教学 | 教学软件 | 广东高考 |
内容提要：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
可以按住Ctrl配合鼠标左键，选择不连续区域。 |
相关文章 |
·任务栏上的显示桌面图标不见了，怎么办？09-17
·解决gmail不稳定的方法03-17
·隐藏Excel错误结果显示的三种方法10-12
·办公室局域网打印机共享轻松设置09-22
·用vlookup从右向左查询(逆向查询)吗？01-20
|
·堪称「神器」的电脑软件/网站02-13
·在Word里用通配符实现特殊替换05-09
·教你如何下载微信公众号的音频文件06-02
·FLV视频在线下载11-18
·FinalData恢复在数码相机误删的相片08-07
|
最新更新 |
阅读排行 |
·微信公众号音频音乐提取方法10-19
·内网穿透工具ngrok09-10
·qlv格式视频转mp4方法08-10
·excel里如何把一列多行等分成多列？07-13
·Excel提取多列中唯一值07-13
·快速创建以当前日期命名的文件夹05-15
·教培网网上培训快速及格技巧05-04
·出于安全原因，Firefox 取消了该请求03-22
·视频在线解析网址03-05
·将纸质版文字材料转为电子版12-23
|
·如何让试题的ABCD选项对齐04-13
·制作Word2003选择性粘贴快捷键07-09
·任务栏上的显示桌面图标不见了，怎么办？09-17
·word排版技巧整理08-02
·不同电脑文件字体改变了的解决方法12-15
·批量修改PPT字体和颜色的方法09-20
·破解不能复制修改的word文档 06-13
·win7 隐藏文件夹设置方法08-14
|
快速导航 |
关于我们 |
联系我们 |
 |
 |
| 微信公众号 | 站长微信 | |||
版权所有 2008-2018 高中英语教学交流网
|
||||