在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) 更改为相应的单元格引用即可。请注意，在运行此代码之前，应将工作表切换到包含要删除重复数据的工作表。
