excel的数据插入到另一个excel表中

如果一张excel表中的数据有重复，则保留一个值，将其余和它一样的值删除，并且将它保存到另一张excel表中，应该怎么实现？？我现在用vba实现了删除，但是不知道怎么样将删除的数据保存到另一张excel表中，没有积分，不好意思啦

如果是直接将已经删除重复项的数据保存到另一张Excel表中，代码如下：
ActiveSheet.Copy
ActiveWorkbook.SaveAs "345.xls"

如果是将那些删除了的数据保存到另一张表，代码如下（请自己相应修改）：
Sub test()
Dim i As Integer
Range("A1:A100").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
For i = 100 To 2 Step -1
If Not Rows(i).Hidden Then
Rows(i).Delete
End If
Next i
ActiveSheet.ShowAllData
ActiveSheet.Copy

ActiveWorkbook.SaveAs "345.xls"
End Sub


不用VBA的方法见我的 http://wenwen.soso.com/z/q175015504.htm

 看看视频，，，讲师讲的很详细。。

下载地址：http://www.sohowork.info/index.asp?id=7148