在单个工作表中删除重复的值，用于工作簿中的多个工作表

我有一个102工作表的工作簿。 我想循环遍历每个工作表，并删除该工作表中的重复项（不作为整个工作簿）。

我目前有这样的代码：

Sub DeleteDuplicates() Set ws = ThisWorkbook.Worksheets For Each X In ws X.Range("A:B").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes Next End Sub 

我相信这是删除在工作簿中的任何地方出现的重复，而不是在一个工作表内。 有没有办法限制这个代码，以便它只删除它所运行的特定工作表中的重复项？

Answer 1

这循环遍历工作簿中的每个工作表。 如果您需要通过添加IF语句跳过任何您可以指定工作表。

 Public Sub DeleteDuplicates() Dim ws as Worksheet Dim wb as Workbook Set wb = ThisWorkbook For Each ws In wb.Worksheets ws.Range("A:B").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes Next ws End Sub