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

我有一个工作簿与多个工作表（约30）。 每张纸都有不同的，复杂的名字。

我想从每个备用工作表（每个都有一个后缀“-a”）返回单元格B6的值到汇总表中。

我怎么去做这个？

提前致谢。

G

Answer 1

使用未经testing的 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语句。