注册 登录
编程论坛 VB6论坛

vb 编程筛选 Excel 中的重复数据保留最后一个重复值!请问如何实现

zry1990 发布于 2014-11-13 15:37, 546 次点击
各位大神,我想用vb编个小程序,从上至下筛选Excel中的重复数据,然后保留最后一个重复的值,请问代码如何写啊。我的下一段代码做出来还是有些重复的数据没有去除掉,求大神帮忙看看!!谢谢
For i = 1 To e_sheet.Range("a65536").End(xlUp).Row
      For b2 = b1 + 1 To e_sheet.Range("a65536").End(xlUp).Row
        x = e_sheet.Cells(b2, 12).Value
        y = e_sheet.Cells(b1, 12).Value
        If x = y Then
            e_sheet.Rows(b1).Delete
        End If
        Text15.Text = b1
        Text16.Text = b2
    Next
 Next
0 回复
1