将工作表合并为一个答案

【问题标题】：Consolidating worksheets into one将工作表合并为一个
【发布时间】：2013-06-10 18:03:06
【问题描述】：

我有一些风格的 excel 工作表

组织 1

姓名职业

克里斯 - 承包商

简 - 员工

组织 2

姓名职业

鲍勃 - 设施

Trey - 软件开发人员

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

组织名称职业

1 - 克里斯 - 承包商

1 - 简 - 员工

2 - Bob - 设施

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

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

【问题讨论】：

@charles 有什么理由删除 rdbmerge 标签？
@Santosh，标签是用来提问的，不是用来回答的。这不是关于您在回答中建议的工具的问题。

标签： vba excel excel-2003

【解决方案1】：

请使用 RDBMerge 插件，它将结合来自不同工作表的数据并为您创建一个主表。详情请查看以下链接。

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

Download RDBMerge

【讨论】：

这可能对某些人有用，但我正在寻找一个更面向 vba 的解决方案，以便在需要时进行调整。
@sko 它的免费插件具有很大的灵活性。试一试，你会喜欢的。
它不太符合我的需求。无论如何，您可以提供密码给我，以便我查看 VB 模块源代码？
@sko 对不起，我没有密码。
@sko 如果此答案或任何其他答案对您有用，请单击旁边的复选标记接受它。 stackoverflow.com/about

【解决方案2】：

我不知道我是否理解您的问题，但这可能会有所帮助：

Sub MergeAll()
Dim r As Long, ws As Worksheet, rAll As Long, wsAll As Worksheet
Dim i As Long
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.name = "All"
Set wsAll = ActiveSheet
rAll = 2
For Each ws In Worksheets
    If ws.name <> "All" Then
        r = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        For i = 1 To r
            wsAll.Cells(rAll, 1) = ws.name
            wsAll.Cells(rAll, 2) = ws.Cells(i, 1)
            wsAll.Cells(rAll, 3) = ws.Cells(i, 2)
            rAll = rAll + 1
        Next i
    End If
Next ws
End Sub

我猜想，一个 Excel 文件包含多张工作表。每张纸代表一个组织。因此，makro 将遍历每张工作表（名称为“All”的工作表除外）并将工作表的数据写入“All”。我希望这是你需要的。

【讨论】：