Excel VBA：基於一列中的唯一值生成fxls文件

我有一個包含此示例數據的Excel文件。Excel VBA：基於一列中的唯一值生成fxls文件

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]

列A包含2個實體（A和B）

我想生成基於在原始上述文件的A列中的唯一值2個Excel文件（這樣的目標是產生Entity_A。 XLS和Entity_B.xls）

Entity_A.xls將包含「含有Users_Entity_A）：

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

Entity_B.xls將包含一個片材（」一張片材（Users_Entity_B）containin g：

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

我該如何在VBA中做到這一點？原始文件中的範圍（nb行）可能會經常更改。實體的數量也是如此。

預先感謝您的幫助

來源

2016-11-23 dbo

你將如何確定應該有多少行轉到文件1，應該多少去文件2？ – Rockstar

@Rockstar按「實體」分組 – otorrillas

好吧，你確定你有固定的文件是基於分組生成的嗎？我的意思是它應該是一個常數，對吧？ – Rockstar

您可以使用autofilter同一實體下，選擇行，然後，他們每個人複製到文件中。

因此，對於下A實體過濾行，這將是這樣的：

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

來源

2016-11-23 10:32:40 otorrillas

Excel VBA：基於一列中的唯一值生成fxls文件

回答

相關問題