Vba: jak usunąć zduplikowane wartości

Aby usunąć zduplikowane wartości w VBA, możesz użyć następujących metod:

Metoda 1: Usuń zduplikowane wartości na podstawie kolumny

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

Ten konkretny przykład usuwa zduplikowane wiersze z zakresu A1:C11 na podstawie zduplikowanych wartości w pierwszej kolumnie zakresu.

Argument Header:=xlYes określa, że pierwsza linia w zakresie jest linią nagłówka i nie powinna być brana pod uwagę podczas sprawdzania duplikatów.

Metoda 2: Usuń zduplikowane wartości w oparciu o wiele kolumn

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub

Ten konkretny przykład usuwa zduplikowane wiersze z zakresu A1:C11 na podstawie zduplikowanych wartości w pierwszych dwóch kolumnach zakresu.

Poniższe przykłady pokazują, jak w praktyce zastosować każdą z tych metod z następującym zbiorem danych w Excelu:

Przykład 1: Usuń zduplikowane wartości na podstawie kolumny

Możemy utworzyć następujące makro, aby usunąć wiersze, które mają zduplikowane wartości w pierwszej kolumnie:

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Należy pamiętać, że każdy wiersz ze zduplikowaną wartością w pierwszej kolumnie zbioru danych został usunięty.

Przykład 2: Usuń zduplikowane wartości w oparciu o wiele kolumn

Możemy utworzyć następujące makro, aby usunąć wiersze, które mają zduplikowane wartości w pierwszych dwóch kolumnach:

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Należy pamiętać, że każdy wiersz zawierający zduplikowane wartości w pierwszych dwóch kolumnach zbioru danych został usunięty.

Uwaga : Pełną dokumentację metody VBA RemoveDuplicates można znaleźć tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak dodać wartości w zakresie
VBA: Jak obliczyć średnią wartość zakresu
VBA: Jak policzyć unikalne wartości w zakresie