【EXCEL】大神救救我！从A表提取特定单元格内容到B表

[gp595086769]

A工作簿内含有120张表，每张表都已经命名，命名格式是：1张三，2李四。。。。。。

B为一张工作表

要求：从A的每张工作表提取单元格B11到B 表


求大神解惑

[aperyx]

打开两张表 for each a in workbooks(A工作簿) workbooks(B工作簿).cells(application.worksheetfunction.counta("A:A")+1,"A")=a.range("B11") next

[xiaodeerdeer]

你可以通过后后台去打开一个你需要的工作表，然后对后台打开的工作表进行操作 提取cell(11,2)保存起来然后对B表进行赋值

[宋哥]

打开两张表aaa.xls、bbb.xls Sub tt1() sheetno = Workbooks("aaa.xls").Sheets.Count For k = 1 To sheetno workbooks("bbb.xls").sheets(1).cells(k,1)=workbooks("bbb.xls").sheets(1).cells(11,2) next k End Sub

[宋哥]

循环中那句更正如下： workbooks("bbb.xls").sheets(1).cells(k,1)=workbooks("aaa.xls").sheets(k).cells(11,2)