2016-11-23 4 views
0

Ich habe eine Excel-Datei mit diesen Beispieldaten.Excel VBA: Generieren Sie fxls Dateien basierend auf eindeutigen Werten in einer Spalte

A   B   C  D 
Entity  Container login mail 
A   1   tutu  [email protected] 
A   1   toto  [email protected] 
A   2   tata  [email protected] 
B   3   tete  [email protected] 
B   4   titi  [email protected] 

Spalte A enthält zwei Entitäten (A und B)

Ich mag 2 Excel-Dateien auf der Grundlage der eindeutigen Werte in Spalte A der ursprünglichen obenen Datei erzeugen würde (so das Ziel ist Entity_A zu erzeugen. XLS und Entity_B.xls)

Entity_A.xls würde enthält ein Blatt ("Users_Entity_A), enthaltend:

A   B  C 
Container login mail 
1   tutu  [email protected] 
1   toto  [email protected] 
2   tata  [email protected] 

Entity_B.xls würde enthält ein Blatt (" Users_Entity_B) mit de g:

A   B  C 
Container login mail 
3   tete [email protected] 
4   titi [email protected] 

Wie kann ich das in VBA tun? Der Bereich (Anzahl der Zeilen) in der Originaldatei kann sich sehr oft ändern. Die Anzahl der Entitäten auch.

Vielen Dank im Voraus für Ihre Hilfe

+0

Wie würden Sie, wie viele Zeilen sollte gehen bestimmen 1 Datei und wie viele sollten 2 gehen in Datei:

So zum Filtern der Zeilen unter A Entitäten, wäre es so etwas wie? – Rockstar

+0

@Rockstar Gruppierung von "Entity" – otorrillas

+0

Okay, sind Sie sicher, dass Sie feste Dateien basierend auf Gruppierungen erstellt haben? Ich meine, es sollte eine Konstante sein, oder? – Rockstar

Antwort

0

Sie können die autofilter für die Auswahl der Zeilen unter der gleichen Einheit verwenden und dann kopieren Sie jeder von ihnen in einer Datei.

Worksheets("Sheet1").Range("A1").AutoFilter _ 
field:=1, _ 
Criteria1:="A", _ 
VisibleDropDown:=False 
Verwandte Themen