1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub 不重复值()On Error Resume NextDim cell As Range, only As New Coll髫潋啜缅ection, i As Byte, Results As VbMsgBoxResultDim Cn As Byte, Rn As Byte, msg As String, itemResults=MsgBox("先列后行点击“是（Y）”" & Chr(10) & "先行后列点击“否（N）”", vbYesNo, "取值顺序")If Results=vbYes ThenRn=Selection.Rows.CountCn=Selection.Columns.CountFor i=1 To CnFor j=0 To Rn-1If Selection.item(i+j * Cn) <> "" Then only.Add Selection.item (i+j * Cn).Value, CStr(Selection.item(i+j * Cn))Next jNext iElseFor Each cell In Selectiononly.Add cell.Value, CStr(cell.Value)Next cellEnd Ifi=0Set cell=Application.InputBox("请选择用于存放结果的区域（可以选单个单元格）", "结果存放区域", "d2", , , , , 8)For Each item In onlycell.Offset(i, 0)=itemi=i+1Next itemEnd Sub
