Excel中具有多个工作表名称的多个工作表中相同单元格的列表

Question

乡亲 我有一本包含200多个工作表的工作簿。我试图在Excel中创建一个名为“ SUMMARY”的摘要工作表，其中在一个列中列出所有工作表的名称，在另一列中列出单元格J2的内容（在每个工作表中）柱。 我发现下面的代码返回一个包含每个工作表的J2单元格内容的列，但不返回具有工作表名称的列，因此我无法使用它。 您能否提供一些技巧以实现代码以返回两列？

Sub MakeSummaryTableOfACellAcrossSheets()
    Dim ws As Worksheet

    Application.ScreenUpdating = False
    Sheets("SUMMARY").Activate

    For Each ws In Worksheets
        If ws.Name <> "ITEMS FAMILY" Then
            ws.Range("J2").Copy
            ActiveSheet.Paste Range("A65536").End(xlUp).Offset(1, 0)
        End If
    Next ws

    Application.ScreenUpdating = True

End Sub 

Answer 1

这会将工作表名称放在“概要”的A列中，将J2放在B列中。

我假设您还想从循环中排除“摘要”。

直接传输值比复制和粘贴要快得多。

使用Rows.Count而不是对65336进行硬编码，因为Excel现在有超过一百万的行。

Sub MakeSummaryTableOfACellAcrossSheets()

Dim ws As Worksheet

Application.ScreenUpdating = False

For Each ws In Worksheets
    If ws.Name <> "ITEMS FAMILY" And ws.Name <> "SUMMARY" Then
        Sheets("SUMMARY").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = ws.Name
        Sheets("SUMMARY").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = ws.Range("J2").Value
    End If
Next ws

Application.ScreenUpdating = True

End Sub