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
