主题：[求助]条件替换，合并时变相排重

现在想实现在合并的时候，若F列重复，则替换表内所有列的值

求老师指导

Dim Book As New XLS.Book

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Tables("URL表").StopRedraw()

Dim nms() As String = {"客户端二级栏目","客户端三级栏目","信息分类","地区","部门","类型","状态","网站名","内容标注","栏目标注","栏目名","网址"}

For n As Integer = 1 To Sheet.Rows.Count -1 

    Dim bh As String = sheet(n,0).Text 

    Dim dr As DataRow = DataTables("URL表").Find("网址 = '" & bh & "'") 

    If dr Is Nothing Then '如果不存在同编号的订单

        dr =  DataTables("URL表").AddNew()

    End If

    For m As Integer = 0 To nms.Length - 1

        dr(nms(m)) = Sheet(n,m).Value

    Next

Next

Tables("URL表").ResumeRedraw()

我这样写的代码 放在表事件beforeadddatarow里的 可是没效果诶..

这个怎么解额...