Excel 从多个工作表返回文本值

我有一本包含多张工作表的工作簿（大约30张）。每张纸都有一个不同的、复杂的名称

我想将每个备用表（每个表的后缀为“-a”）中的单元格B6的值返回到汇总表中

我该怎么做呢

提前谢谢

---

g

使用未测试的vba代码：

Sub test()
A = 1
For each s in activeworkbook.sheets
    If right(s.name, 2) = "-a" then
        With Sheets("summary")
            .cells(a, "a") = s.name
            .cells(a, "b") = s.range("b6")
        End with
    End if
Next
End sub

若要运行，请右键单击“图纸”选项卡上的“查看代码”，将代码粘贴到中，然后从菜单中运行

---

要为所有人运行，请删除

if

语句。

我们不为帮助的人编写代码。你试过什么？请参阅thx以获得您的帮助。不确定如何使用此脚本。另外，如果我想要每张图纸而不是备用图纸，那么脚本将如何更改？