本帖隐藏的内容

Excel中删除一列中数据相同的行。

Sub deleteP()
j = 200‘根据实际确定
    For hang = 2 To j
     If Cells(hang, 1) = "" Then Exit Sub '如果到了列尾无数据处，退出程序
        For i = hang + 1 To j '从它的下一行开始查询
            If Cells(hang, 1).Value = Cells(i, 1).Value Then '如果有相同的
               Rows(i).Select '删除行
               Selection.Delete Shift:=xlUp '下方单元格向上移
               i= i- 1 '删除行后，总行数变少。这句其实没用，可删
            End If
        Next
    Next
End Sub