分别提取重复和不重复的行到另外两个表

 问题：
   对“原始数据”表中的数据共有48列，有若干行，现要求对其整整行进行比较。
   要求：
   1、把“原始数据”表中整行完全一样的的挑选出来（重复的数据无论有几个都只保留一个），放在“重复数据”表中。
   2、把不重复的挑选出来，放在“不重复数据”表中。
   说明：
   所谓整行相同，就是指这一行的所有的列对应的数字都相同！也就是这样的，假如第一行与第二行数据相同，那么就是要求：

A1=A21、B1=B2、C1=C2、D1=D2、....直到最后一列也相同，就表示这两行是相同的！

A1=A21应该是A1＝A2

dPW8IoIk.rar (88.03 KB, 下载次数: 15)

2007-11-6 10:11 上传

点击文件名下载附件
分别提取重复和不重复的行的到另外两个表

下面是我在网上搜索到的一些资料，看看能不能利用一下！

'比较A列行与行之间是否有重复，有则将重复单元格变灰色
        Dim   index   As   Long               '行号
        Dim   temp   As   String             '当前单元格上一单元格值，作比较用
        Dim   strRangeA   As   String   'A列单元格
        Dim   strColor   As   Integer   '颜色
       
        temp   =   " "
        strColor   =   15
       
        For   index   =   1   To   65536
               
                strRangeA   =   "A "   +   CStr(index)
               
                If   Range(strRangeA).Value   =   " "   Then
                        Exit   Sub
                End   If
               
                If   temp   =   Range(strRangeA).Value   Then
               
                        Range(strRangeA).Select
                        With   Selection.Interior
                                .ColorIndex   =   strColor
                                .Pattern   =   xlSolid
                        End   With
   
                End   If
                temp   =   Range(strRangeA).Value
        Next

是这样的，假如第一行与第二行数据相同，那么就是要求：

A1=A21、B1=B2、C1=C2、D1=D2、....直到最后一列也相同，就表示这两行是相同的！

谢谢oobird版主。看看先！