Forum

VBA Macro / Remove ...
 
Notifications
Clear all

VBA Macro / Remove Row duplicates

3 Posts
3 Users
0 Reactions
110 Views
(@mfkh1981gmail-com)
Posts: 1
New Member
Topic starter
 

Can you anyone guide me, How to remove duplicates with comparing 7 different columns in Excel VBA.

 
Posted : 10/11/2021 12:53 pm
Philip Treacy
(@philipt)
Posts: 1631
Member Admin
 

Hi,

Please supply sample data in an Excel file.  Hard to write any code without it.

Regards

Phil

 
Posted : 23/11/2021 10:00 pm
(@kappes105)
Posts: 1
New Member
 

Hello

test thist Code

Sub LöschenDoppelteDatensätze()

Dim StartTime As Double
StartTime = Timer

Dim lngZeileMax As Long
Dim lngZeileMaxNeu As Long
Dim lngSpalteMax As Long
Dim i As Long

'Berechnungen ausschalten
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False

With tbl_Adressen     'Adjust the table

'Anzahl der zu prüfenden Zeilen
lngZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row

'Anzahl der zu prüfenden Spalten
lngSpalteMax = .Range("A1").CurrentRegion.Columns.Count

'Datenfeld bilden, Anzahl der Spalten ist je nach Tabelle variabel!!!
ReDim Vardat(0 To lngSpalteMax - 1) As Variant

For i = 0 To lngSpalteMax - 1
Vardat(i) = i + 1
Next i

'Doppelter Datensätze löschen mit Vergleich des Datenfeldes
.Range("A1").CurrentRegion.RemoveDuplicates Columns:=(Vardat), Header:=xlYes

'Anzahl der übrig gebliebenen Zeilen
lngZeileMaxNeu = .Range("A" & .Rows.Count).End(xlUp).Row
End With

'Berechnungen wieder einschalten
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True

Debug.Print "Laufzeit : " & Format((Timer - StartTime) / 86400, "hh:mm:ss:ms")
Debug.Print "Insgesamt wurden " & lngZeileMax - lngZeileMaxNeu & " Zeilen gelöscht"

End Sub

 
Posted : 25/11/2021 10:53 am
Share: