有问题就有答案
Q1：EXCEL VBA的代码,去除重复？
功能去重(a)作为字符串)b=拆分(a " ")对于b中的每个单元格，n=拆分（去重，" ")m=0对于i=0到UBound(n)如果cel=n(i)那么m=m 1下一个如果m=0那么去重=去重" " celNextEnd函数
Q2：VBA删除重复值
你直接说你要做什么吧，一般没人用Collection，EXcelhome论坛上几乎没有人用Collection。你写这么烂的程序，浪费我半小时调试时间，真不值。我们去重就两种方法，要么用excel数据菜单里自带的‘删除重复值’，录制个宏自己改；要么用字典，值写进去就OK，再把d.keys给回数组或excel表格区域。
Q3：怎么通过宏VBA代码删除Excel中有重复数据的整行？
1、首先打开需要编辑的Excel表格，右键单击工作表的标签，选择打开“查看代码”。2、然后在弹出来的窗口中点击输入：Sub 删除重复行()Dim xRow As IntegerDim i As IntegerxRow = Range("B65536").End(xlUp).RowFor i = 2 To xRowFor j = i + 1 To xRowIf Cells(j, 2) = Cells(i, 2) ThenRange(Cells(j, 1), Cells(j, 256)).Rows.Deletej = j - 1xRow = xRow - 1End IfNextNextEnd Sub3、然后点击左上角的保存按钮进行保存，之后运行该代码或运行宏“删除重复行”即可。4、然后就可以删除重复数据的整行。
Q4：vba怎样把 brr(1 To n)的重复值去掉？
刘杰辉云娥，云娥：setd=创建对象("脚本。词典")孔=1 tond(brr(I))=真下一个键吴亚玲，吴亚玲，吴亚玲，吴亚玲，吴亚玲，吴亚玲，吴亚玲，吴亚玲，吴亚玲，吴亚玲，吴亚玲，吴亚玲，吴亚玲，吴亚玲，吴亚玲，吴亚玲，吴亚玲，吴亚玲，吴亚玲msgboxjoin(即钥匙，)
Q5：Vba数组去重复请教
字典最合适，代码如下：Sub AA() arr = Range("B2:B10") Set d = CreateObject("scripting.dictionary") For i = 1 To UBound(arr) d(arr(i, 1)) = "" Next [C2].Resize(d.Count) = Application.Transpose(d.keys) Set d = NothingEnd Sub
Q6：怎么通过宏vba代码删除excel中有重复数据的整行
Sub删除重复行()dim xrow作为整数dim I作为整数xrow=range ("b65536 ")。结束(xlup)。如果单元格(j，2)=单元格(I，2)，则范围为(单元格(j，1)，单元格(j，256))。row . delete j=j-1x low=xrow-1 end if next next sub单击工作表选项卡上的鼠标右键，输入上面的代码，然后运行该代码或运行宏“删除重复的行”。有缺陷，但如果图号相同会被删除。如果删除了具有相同图号和不同数量的线。