【实验】Excel 删除重复行VBA代码

2009年12月30日 | 分类: 技术相关 | 标签: , ,

一个朋友找我看看能不能用程序把Excel里的重复行删除下,呵呵,看VBA代码吧。

Option Explicit
Sub delSameRows()
    '删除某一列中相同的行
    '此例为 先手动按B列排序,然后用此代码找到B列中相同的值再删除整行
    Dim i As Long, j As Long
    Dim startRows As Long, endRows As Long
    '起止行数
    startRows = 2
    endRows = 38006
    For i = startRows To endRows
        For j = i + 1 To endRows
            If Range("B" & j).Value = Range("B" & i).Value Then
                'Set Rng = Cells(j, 2)
                'Rng.Interior.ColorIndex = 6
                Rows(j).Delete
                j = j - 1
                endRows = endRows - 1
            Else
                Exit For
            End If
        Next
    Next
    MsgBox "已完成!剩余行数 " & endRows
End Sub
目前还没有任何评论.

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。