Frage : AufspaltenExcel-Arbeitsblatt in mehrfache Arbeitsbücher

Hallo, haben

I z.Z. einen übertreffenverteilungsbogen mit einigen Spalten in ihm.  Eine der Spalten ist Kunde.  Ich möchte jeden Kunden in ein unterschiedliches Arbeitsbuch heraus aufspalten, damit ich jedes Arbeitsbuch mailen kann jedem Kunden.  Gibt es eine einfache Weise des Handelns dies?  Ideal lieben ich, in der Lage zu sein, dieses function.

Thanks zu automatisieren

Antwort : AufspaltenExcel-Arbeitsblatt in mehrfache Arbeitsbücher

Dieses versuchen.
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:

Sub x ()
 
Rng als Strecke, WS verdunkeln als Arbeitsblatt

Application.DisplayAlerts = falsch

Mit Blättern („Sheet1“)
    Sheets.Add (). Name = „Temp“
    . Strecke („A1“. Strecke („A“ u. Rows.Count). Ende (xlUp)).AdvancedFilter Tätigkeit: =xlFilterCopy, CopyToRange: =Sheets („Temp“). Strecke („A1“), einzigartig: =True
     Für jedes rng in den Blättern („Temp“). Strecke („A2“, Blätter („Temp“). Strecke („A2“). Ende (xlDown))
        Einstellen WS = Worksheets.Add ()
        WS. Name = rng
        .AutoFilterMode = falsch
        . Feld der Strecke („A1“) .AutoFilter: =1, Criteria1: =rng
        .AutoFilter.Range.Copy WS. Strecke („A1“)
        WS. Bewegung
        ActiveWorkbook.Close SaveChanges: =True, Dateiname: = " C:\ " u. rng u. „.xls“
    Folgendes rng
    .AutoFilterMode = falsch
    Blätter („Temp“). Löschung
Ende mit
     
Application.DisplayAlerts = ausrichten en

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us