vba如何删除不重复的数据 希望这次不被丢失。Sub Macro2()Dim Arr1，Arr2，Mark1，Dict1Set Dict1=CreateObject(\"scripting.dictionary\")Arr1=Range(Cells(1，\"A\")，Cells(Cells(65536，\"A\").End(xlUp).Row，\"E\"))For i=1 To UBound(Arr1，2)If Not Dict1.exists(Arr1(1，i))ThenDict1.Add Arr1(1，i)，\"End IfNextFor i=2 To UBound(Arr1，1)Mark1=0For j=1 To 5If Dict1.exists(Arr1(i，j))Then Mark1=Mark1+1NextIf Mark1Cells(i，1).ClearEnd IfNextColumns(\"A：A\").SelectSelection.SpecialCells(xlCellTypeBlanks).SelectSelection.EntireRow.DeleteEnd Sub
Excel如何用VBA删除重复值？ Excel如何用VBA删除重复值，Excel中用VBA编程可以实现很多功能，比如删除重复项，今天就来介绍下具体的操作方法。
怎么通过宏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、然后就可以删除重复数据容的整行。
