怎样使用VBA提取多列数据之不重复值？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 不重复值()

On Error Resume Next
Dim cell As Range, only As New Collection, i As Byte, Results As
      VbMsgBoxResult
Dim Cn As Byte, Rn As Byte, msg As String, item
Results=MsgBox("先列后行点击“是（Y）”" & Chr(10) & "先行后列点击“否（N）”",
      vbYesNo, "取值顺序")
If Results=vbYes Then
Rn=Selection.Rows.Count
Cn=Selection.Columns.Count
For i=1 To Cn
For j=0 To Rn-1
If Selection.item(i+j * Cn) <> "" Then only.Add Selection.item
    (i+j * Cn).Value, CStr(Selection.item(i+j * Cn))
Next j
Next i
Else
For Each cell In Selection
only.Add cell.Value, CStr(cell.Value)
Next cell
End If
i=0
Set cell=Application.InputBox("请选择用于存放结果的区域（可以选单个单元格）",
    "结果存放区域", "d2", , , , , 8)
For Each item In only
cell.Offset(i, 0)=item
i=i+1
Next item
End Sub

5