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


相关文章
·Word批量删除自选图形的办法!07-16
·如何在excel中统计各分数段人数?03-12
·Excel 利用行号引用数据09-02
·Excel如何批量插入分页符02-12
·excel里如何把一列多行等分成多列?07-13
·笔记本如何外接显示器08-13
·SQL SERVER数据库中快速找主表11-10
·提示输入QQ本地信息密码时怎么办?04-03
·PS对扫描文件去除背景色04-26
·Office2003 Word/Excel等双击默认打开方式修复12-12
最新文章
阅读排行