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