vba数组去除重复数据的方法，vba数组去除重复数据

求助VBA删除相同项

选中一个区域，可以是单列区域，可以是单行区域，也可以是多行多列的矩形区域。

进入EXCEL，ALT+F11进入VBA编辑器。在编辑区输入VBA语言Sub Macro1()， VBA 语言选择整行整列的语句，End Sub。在工作表中插入表单控件，并指定到宏Macro1。弹出的新界面中，再次点击”确定“。

将W列公式粘贴为数值(很关键，排序的时候带着公式会非常慢)将W列排序。在新一列(假设X列)X1=1，然后X2写公式为(=if(w1=w2，x1+1，1)。目的是将W列相同的记录在X列编一个从1开始的流水号。

首先打开需要编辑的Excel表格，右键单击工作表的标签，选择打开“查看代码”。

做一个简单的比较就能实现了，没有用数组，只用了for循环 你要实现的功能比较简单，所以代码也不多，运行速度也没什么区别 下面给你代码，你放模块里运行就可以了。

vba中怎么去除数组中重复的数据

主菜单中选择“数据”→“删除重复项”；根据提示，默认“数据包含标题”选中，点击“确定”按钮即可。

此方法可 以方便快捷的保留非重复数据，但是仅限于单列操作。公式法：辅助列输入公式=countif(A1：A10，A1：A10)下拉，然后筛选公式值为1的列进行 删除。

选中一个区域，可以是单列区域，可以是单行区域，也可以是多行多列的矩形区域。

个办法：方法一：对数据的元素进行依次遍历，如果已经存在，则将其移除。方法二：将数据写到单元格区域中，调用excel中去重复值方法，然后再读进来。

测试结果：验证方式通过计算删除元素后的数组长度确认实现功能，输入了Array(3， 3， 3， 3， 1， 3， 7， 3， 3， 3， 9， 3， 3)，长度为13（从1开始算），删除后长度为3，而且只有3个元素是不重复的。说明功能正常。

怎么通过宏VBA代码删除Excel中有重复数据的整行?

首先打开需要编辑的Excel表格，右键单击工作表的标签，选择打开“查看代码”。

你可以用宏录制的方法，就是点录制宏，然后你自己操作一下，结束后点击关闭保存。excel会把你操作的过程变成代码，你把代码copy下来用就可以了。

- 1 xRow = xRow - 1 End If Next Next End Sub 在该工作表标签上点击鼠标右键，输入上述代码，运行该代码或运行宏“删除重复行”即可。有个缺陷，只是判断图号相同即删除，假如图号相同、数量不同的行照样删除。

=列去重(B1：B99)使用excel中的VBA宏代码可实现该功能。

亲，是这个意思么？打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。