发布网友 发布时间:2024-03-23 15:10
共2个回答
热心网友 时间:2024-06-15 04:51
如果sheet命名没有规律,普通的公式应该无法实现,不过可以使用vba代码实现。
比如你要提取每个sheet中的B2单元格,可以新建一个sheet,使其置于最右侧位置。
然后复制如下代码:
Sub 提取表格单元格数据()
'最后一张工作表必须为目录表,且A列没有数据,或直接新建sheet
Dim i As Integer
Application.ScreenUpdating = False
Sheets(Sheets.Count).Range("A1:A2000").ClearContents
For i = 1 To Sheets.Count-1
Sheets(Sheets.Count).Range("a" & i) = Sheets(i).[b2]
Next
Sheets(Sheets.Count).Select
Application.ScreenUpdating = True
End Sub
按alt+F11键,在上方菜单中选择插入模块,粘贴该代码,按F5运行即可。
热心网友 时间:2024-06-15 04:50
提取工作表SHEET1-SHEET8中的A1值。步骤: