ワークブック内の重複する値を1つのワークシート内で削除する

Question

ワークシートに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