vba怎么删除重复数据行

在VBA中，可以使用以下代码删除重复数据行：

Sub 删除重复数据行()
    Dim lastRow As Long
    Dim i As Long
    Dim j As Long
    
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = lastRow To 2 Step -1
        For j = 1 To i - 1
            If Cells(i, 1) = Cells(j, 1) And Cells(i, 2) = Cells(j, 2) And Cells(i, 3) = Cells(j, 3) Then
                Rows(i).Delete
                Exit For
            End If
        Next j
    Next i
End Sub

此代码假设要删除的数据在第1列、第2列和第3列。如果要删除其他列的重复数据，只需将 Cells(i, 1)、Cells(i, 2) 和 Cells(i, 3) 更改为相应的单元格引用即可。请注意，在运行此代码之前，应将工作表切换到包含要删除重复数据的工作表。