excel - 从多个工作表返回文本值

Question

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

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

我该怎么做呢？

提前致谢。

G

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语句运行。