Question

在excel中，我有几张（大约50张），每张在A，B和C列中都有相同的标题，然后最多有199行数据（第1行=标题，行2-200 =数据）。命名例程为Wk 1 Mon，Wk 2 Tue等，一直到Wk 10 Fri

我想要做的是在一张纸上的一个列表中显示这些选项卡中的所有数据。我可以通过引用每个工作表中的每个单元格来实现这一点，一个在另一个工作表之下，但问题是并非所有工作表实际上都有数据直到第200行（有些只有标题），我希望跳过空行。

我完全不知道如何在Excel中解决这个问题。我对VLOOKUP之类的理解充其量只是基本的;我不确定我是否能够达到使用该系列功能所需的功能。

我也查看了Excel的合并功能，但我认为这不是我在这种情况下所需要的。

有人可以建议我如何实现目标。我宁愿通过仅工作表函数来实现这一点，但如果有足够简单的解决方案，我会对VBA开放。

Answer 1

试试这一点VBA。它基本上滚动浏览每个工作表，找到最后一行并将其粘贴在第一个工作表数据的底部。它在方法论上有点粗糙，但确实有效！

Dim ws As Worksheet

For Each ws In Worksheets
    i = i + 1

    If i = 1 Then
        FirstSheet = ws.Name
    ElseIf i > 1 Then
        ws.Activate
        LastCell = Cells(65536, 1).End(xlUp).Row
        Range("A1:C" & LastCell).Select

        Selection.Copy
        Worksheets(FirstSheet).Activate
        Cells(Cells(65536, 1).End(xlUp).Row + 1, 1).Select
        ActiveCell.PasteSpecial xlPasteValuesAndNumberFormats
    End If
Next ws

将许多工作表中的数据合并为一个

1 个答案: