将工作表合并为一张

我有一些Excel工作表，其风格为

组织1

姓名 职业

克里斯 - 承包商

简 - 员工

组织2

姓名 职业

鲍勃 - 设施

Trey - 软件开发人员

并希望将这些工作表合并到具有以下格式的主工作表中

组织名称 职业

1 - 克里斯 - 承包商

1 - 简 - 员工

2 - 鲍勃 - 设施

2 - Trey - 软件开发人员

使用 VBA，我可以将所有数据提取到一个工作表中

NumSheets = Worksheets.Count

Worksheets(1).Select
Sheets.Add
ActiveSheet.Name = "All"
For X = 1 To NumSheets
Worksheets(X + 1).Select
curAgency = ActiveSheet.Name
NumRows = ActiveSheet.UsedRange.Rows.Count
Rows("5:" & NumRows).Select
Selection.Copy
Worksheets("All").Select
ActiveSheet.Range("B1").Paste
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Worksheets(X + 1).Select
Range("A1").Select
Next X
Worksheets("All").Select
Range("A1").Select
End Sub

但我不确定如何插入列并将组织名称附加到主列表上的每个组。

请使用 RDBMerge 插件，它将合并不同工作表中的数据并为您创建一个主表。请参阅以下链接了解更多详情。

http://duggisjobstechnicalstuff.blogspot.in/2013/03/how-to-merge-all-excel-worksheets-with.html http://duggisjobstechnicalstuff.blogspot.in/2013/03/how-to-merge-all-excel-worksheets-with.html

下载关系数据库合并 http://www.rondebruin.nl/win/addins/rdbmerge.htm