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

2025-03-29 01:55:24

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

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

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

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

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

怎样使用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

怎样使用VBA提取多列数据之不重复值
怎样使用VBA提取多列数据之不重复值
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢