在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) 更改為相應的單元格引用即可。請注意，在運行此代碼之前，應將工作表切換到包含要刪除重復數據的工作表。
