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 iEnd Sub

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