Pytanie : VBA Przodować Dane i Stosować Formatowanie

I patrzeć dla niektóre VBA kod który przemieniać the surowy dane w "SheetRaw" mój dołączać Przodować kartoteka w the format ty widzieć na "SheetFinished".  The kod ekspert musieć niektóre myśl z ty ekspert niektóre tam.  Jakaś rozwiązanie ogromnie ogromnie doceniać! ; -) 

(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 Przemieniać ()
    Ciemnawy Aarea Jako Pasmo, Arange Pasmo
    
    Application.ScreenUpdating = Fałszywy
    Application.DisplayAlerts = Fałszywy
    Ustalony Arange = Pasmo ("A10", Pasmo ("A" & Rows.Count). Końcówka (xlUp))
    Z Arange
        . Subtotal GroupBy: =1, Funkcja: =xlSum, TotalList: =Array (1), _
            Zamieniać: =True, PageBreaks: =False, SummaryBelowData: =True
        . Odsadzka (2, -1) .SpecialCells (xlCellTypeConstants). Odsadzka (, 1).ClearContents
        . Odsadzka (, -1) .EntireColumn.Delete
        .EntireColumn.RemoveSubtotal
    Końcówka Z
    Dla XlCellTypeConstants Aarea W Arange.SpecialCells (xlCellTypeConstants). Teren
        Z Aarea
            Z. Komórka ((1), 1).Offset (- (1))
                . Wartość =. Odsadzka (1).Value
                . Font.Bold = Prawdziwy
                .EntireRow.Insert
            Końcówka Z
            .ClearContents
        Końcówka Z
    Następny Aarea
    Application.DisplayAlerts = Prawdziwy
    Application.ScreenUpdating = Prawdziwy
Końcówka Okręt podwodny
Attachments:
Example.xls (25 KB)  (Kartoteka Typ Szczegół)  
Zadawalać widzieć przykład file.

Odpowiedź : VBA Przodować Dane i Stosować Formatowanie

próbować ono znowu po korekcja
Inne rozwiązania  
 
programming4us programming4us