在多张工作表的C列中将基于文本的数据列出到excel主表中的一列中

Question

我有一个工作簿，其中包含几个不同工作表上的基于文本的数据。 所有工作表使用相同的标题，但各列中的文本不同。 我希望能够从新工作表的单个列中的所有工作表中列出C列中包含的信息。

有没有一种方法可以将所有数据放入一个单独的列中而不必从近100个不同的工作表中复制和粘贴？

Answer 1

使用VBA，这是一个可行的解决方案。 您只需要在工作簿中插入一个模块并运行它即可。 F11>插入>模块。 复制并粘贴此代码，然后点击播放。

这将使用您在newSheet下定义的任何名称创建一个新的工作表。 然后，取每个工作表C行的内容（在标头之后），无论您有多少人或他们的名字叫什么，然后将其添加到新的工作表中。 如果您超过1,000,000行，我可能会看到一个问题。除此之外，如果您不想在任何工作表上执行此操作，我们将在If语句中按名称专门将它们添加为例外。

测试：

Private Sub CopyAllSheetsCol()

Dim WS As Worksheet
Dim newSheet As String
Dim lastRow As Long     'Last Row on source Sheet
Dim tRow As Long        'target row  

newSheet = "Compiled"   'name can be changed here

Sheets.Add.Name = newSheet
tRow = 2                'Set the target Row to 2, Set the Header Row manually

    For Each WS In ActiveWorkbook.Worksheets
        If WS.Name <> newSheet Then     'Making sure we are only working with pre-existing sheets

            lastRow = Sheets(WS.Name).Range("C2").End(xlDown).Row    'get last row of Column C on each Worksheet

            For r = 2 To lastRow                                'Loop through all rows skipping header
            Sheets(newSheet).Cells(tRow, "C") = Sheets(WS.Name).Cells(r, "C")    'Copy to newSheet
            tRow = tRow + 1                                     'Increment target row by 1
            Next r

        End If
    Next

End Sub

编辑：润色说明