我正在编写一个代码,将数据从一张表复制到另一张表中,并且该功能可以正常工作。现在,我正在尝试对其进行编码,以根据 F 列中该信息的 ID 号删除包含重复信息的任何行。我们过程的一部分是在每行工作完成后手动输入 E 列。
所以我的最终目标是让代码删除 E 列为空白且 F 列重复的行。我的代码运行,但不删除任何东西。我真的希望我只是错过了一些非常明显的东西。
For i = 1 To Range("f" & Rows.Count).End(xlUp).Row
If Cells(i, 5).Value = "" Then 'if column E is blank on row i
x = Cells(i, 6).Value
If Not IsError(Application.Match(x, "F:F", 0)) Then '& if that row is a duplicate
ActiveSheet.Range(x).EntireRow.Delete 'delete new duplicate row
End If
End If
Next i