消除重复的数据

我是VBA中的新用户，为了消除一张表中的重复数据并将唯一数据提取到另一张表中，我编写了以下基本代码。

例如：

1. 在Sheet1中总共有184个单元格，其中列A中包含相同date（12/07/2007）。
2. 我希望获取date数据中的一个 ，并将其写入Sheet2中的单元格。
3. 因此，在Sheet2中将在A1中写入12/07/2007。

我将不胜感激任何forms的帮助。

码：

Sub Take_Unique() Workbooks("historicaldata.xls").Activate Dim i As String Dim xrow As Long xrow = 2 Do Until Sheet1.Cells(xrow, 1) = "" If Sheet1.Cells(xrow, 1).Value = Sheet1.Cells(xrow + 1, 1) Then Sheet12.Cells(xrow, 1).Value = Sheet1.Cells(xrow, 1) End If xrow = xrow + 1 Loop End Sub 

Answer 1

更简单的方法是将整个列从sheet1复制到sheet12：

 Sheet1.Columns(1).Copy Destination:=Sheet12.Columns(1) 

然后使用RemoveDuplicatesfunction删除任何重复项（如果存在，则设置Header，如果不存在则不设置）

 Sheet12.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes 

Answer 2

另一种方法是我的重复主插件 。

它处理空白，大小写敏感性，甚至正则expression式匹配 – 所以它超出了默认的比较。