Fehler Filtern, Ausgeben und Kurzschließen dieser Daten

Question

Gehirn geschmolzen. Ich weiß, dass Stackoverflow kein freies Coding macht, aber ich bleibe beim Start stecken. Ich versuche, die Daten von der linken Seite zu filtern und auszugeben, um wie die Daten auf der rechten Seite mithilfe von VBA-Skripts zu aussehen. Irgendwelche Vorschläge, wie ich das erreichen kann?

Answer 1

Dies könnte Ihnen den Einstieg:

Sub mergeCategoryValues() 
    Dim lngRow As Long 

    With ActiveSheet 
     Dim columnToMatch As Integer: columnToMatch = 2 
     Dim columnToConcatenate As Integer: columnToConcatenate = 4 
     Dim columnToSum As Integer: columnToSum = 5 

     lngRow = .Cells(65536, columnToMatch).End(xlUp).Row 
     .Cells(columnToMatch).CurrentRegion.Sort key1:=.Cells(columnToMatch), Header:=xlYes 

     Do 
      If .Cells(lngRow, columnToMatch) = .Cells(lngRow - 1, columnToMatch) Then 
       .Cells(lngRow - 1, columnToConcatenate) = .Cells(lngRow - 1, columnToConcatenate) & .Cells(lngRow, columnToConcatenate) 
       .Cells(lngRow - 1, columnToSum) = .Cells(lngRow - 1, columnToSum) + .Cells(lngRow, columnToSum) 
       .Rows(lngRow).Delete 
      End If 

      lngRow = lngRow - 1 
     Loop Until lngRow = 1 
    End With 
End Sub 

Es wurde aus diesem Code angepasst: Excel VBA - Combine rows with duplicate values in one cell and merge values in other cell
Alles was Sie brauchen, um herauszufinden, ist die erste Spalte zu entfernen und die Variablen dynamischer zu machen. Lassen Sie mich wissen, ob das hilft.