Vraag : VBA om de Gegevens van Excel te herschikken en het Formatteren toe te passen

Ik zoek één of andere code VBA die de ruwe gegevens in „SheetRaw“ van mijn dossier in bijlage van Excel in het formaat zal herschikken u op „SheetFinished“ ziet.  De code zou hieronder wat gedachte met u daar moeten inspireren deskundigen.  Om het even welke oplossingen voor dit worden zeer gewaardeerd! ; -)

" codeBody " 
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 herschikt ()
    Schemerige Aarea als Waaier, Arange als Waaier
    
    Application.ScreenUpdating = Vals
    Application.DisplayAlerts = Vals
    Vastgestelde Arange = Waaier („A10“, Waaier („A“ & Rows.Count). Eind (xlUp))
    Met Arange
        . Subtotaal GroupBy: =1, Functie: =xlSum, TotalList: =Array (1), _
            Vervang: =True, PageBreaks: =False, SummaryBelowData: =True
        . Compensatie (2, -1) .SpecialCells (xlCellTypeConstants). Compensatie (, 1) .ClearContents
        . Compensatie (, -1) .EntireColumn.Delete
        .EntireColumn.RemoveSubtotal
    Eind met
    Voor Elke Aarea in Arange.SpecialCells (xlCellTypeConstants). Gebieden
        Met Aarea
            Met. Cellen (1, 1). Compensatie (- 1)
                . Waarde =. Compensatie (1). Waarde
                . Font.Bold = Waar
                .EntireRow.Insert
            Eind met
            .ClearContents
        Eind met
    Volgende Aarea
    Application.DisplayAlerts = Waar
    Application.ScreenUpdating = Waar
Sub van het eind
Attachments:
van
Example.xls (25 KB)  (de Details van het Type van Dossier)  
Gelieve te zien voorbeeld file.

Antwoord : VBA om de Gegevens van Excel te herschikken en het Formatteren toe te passen

probeer het opnieuw na correctie
Andere oplossingen  
 
programming4us programming4us