ich möchte einen ziemlich großen Datensatz mit 40 Tsd Zeilen vereinfachen. Und zwar möchte ich Duplikate in meinen Daten anhand der ersten ID-Spalte identifizieren und dann diese Zeilen in eine Zeile zusammenfassen.
Eigentlich muss auch nur aufsummiert werden (Zahlen) was in den Spalten N-GO steht und daraus sollte dann eine Zeile entstehen.
Ich habe bereits einen Code gefunden der so etwas leisten kann, aber da ich Anfängerin bin komme ich nicht so ganz mit der Struktur klar, ich hoffe jemand kann mir helfen!
Sub test()
Dim i As Long 'Zeilenzähler
Dim x As Integer 'Zähler um Arr() zu erweitern
Dim flag As Boolean
Dim arr As Variant
Dim arrIndex As Integer
With Sheets("Data_Sum")
arr = Application.Transpose(Range(Financial_id.Cells(1, 1), .Cells(2, 13)))
x = 2
For i = 3 To .Cells(Rows.Count, 1).End(xlUp).Row
flag = False
For arrIndex = LBound(arr, 2) To UBound(arr, 2)
If .Cells(i, 1) = arr(1, arrIndex) Then
If InStr(1, arr(13, arrIndex), .Cells(i, 13)) = 0 Then _
arr(13, arrIndex) = arr(4, arrIndex) & "-" & .Cells(i, 13)
'dann Prüfschleife(Arr) verlassen
flag = True
Exit For
Else
flag = False
End If
Next
If Not flag Then
x = x + 1
ReDim Preserve arr(1 To 13, 1 To x)
arr(1, x) = .Cells(i, 1)
arr(2, x) = .Cells(i, 2)
arr(3, x) = .Cells(i, 3)
arr(4, x) = .Cells(i, 4)
arr(5, x) = .Cells(i, 5)
arr(6, x) = .Cells(i, 6)
arr(7, x) = .Cells(i, 7)
arr(8, x) = .Cells(i, 8)
arr(9, x) = .Cells(i, 9)
arr(10, x) = .Cells(i, 10)
arr(11, x) = .Cells(i, 11)
arr(12, x) = .Cells(i, 12)
arr(13, x) = .Cells(i, 13)
End If
Next
End With
End Sub
Liebe Grüße!