Frage : VBA, zum von Excel-Daten neu zu ordnen und von Formatierung anzuwenden

Ich suche nach irgendein VBA Code, der die rohen Daten in „SheetRaw“ meiner angebrachten Excel-Akte im Format neu ordnet, das, Sie auf „SheetFinished“ sehen.  Der Code unten sollte etwas Gedanken mit Ihnen anspornen Experten heraus dort.  Alle mögliche Lösungen zu diesem werden sehr geschätzt! ; -) 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

Sub ordnen neu ()
    Schwaches Aarea als Strecke, Arange als Strecke
    
    Application.ScreenUpdating = falsch
    Application.DisplayAlerts = falsch
    Arange = Strecke („A10“, Strecke („A“ u. Rows.Count) einstellen. Ende (xlUp))
    Mit Arange
        . Teilsumme GroupBy: =1, Funktion: =xlSum, TotalList: =Array (1), _
            Ersetzen: =True, PageBreaks: =False, SummaryBelowData: =True
        . Versatz (2, -1) .SpecialCells (xlCellTypeConstants). Versatz (, 1).ClearContents
        . Versatz (, -1) .EntireColumn.Delete
        .EntireColumn.RemoveSubtotal
    Ende mit
    Für jedes Aarea in Arange.SpecialCells (xlCellTypeConstants). Bereiche
        Mit Aarea
            Mit. Zellen (1, 1).Offset (- 1)
                . Wert =. Versatz (1).Value
                . Font.Bold = richten aus
                .EntireRow.Insert
            Ende mit
            .ClearContents
        Ende mit
    Folgendes Aarea
    Application.DisplayAlerts = richten aus
    Application.ScreenUpdating = richten aus
Enden-Unterseeboot
Attachments:
Example.xls (25 KBS)  (Akten-Art Details)  
Beispiel file.
bitte sehen

Antwort : VBA, zum von Excel-Daten neu zu ordnen und von Formatierung anzuwenden

es nach Korrektur noch einmal versuchen
Weitere Lösungen  
 
programming4us programming4us