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

Question

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

我想将每个备用工作表（每个工作表后缀为“-a”）的单元格B6的值返回到摘要表中。

我该怎么做呢？

提前感谢。

克

Answer 1

使用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语句。