1、首先,我们创建两个工作表,并输入不同内容来演示,我需要把这两个工作表合并。我们同时打开这两个工作表。
2、为演示方便,我把表1的工作簿标签改成“工作1、2、3”的形式,右键点击其中一个标签,选择“选定全部工作表”,就能全选表1的内容。再次右键点击一下,选择“移动或复制工作表”。
3、出现移动或复制选项框,我们点击选择将选定工作表移至“表2”,并选择放置于“移至最后”,点击确定。
4、这样,表1的内容都被合并到表2中了,效果如下图所示。
使用方法:
1、新建一个工作薄,将其命名为你合并后的名字。
2、打开此工作薄。
3、在其下任一个工作表标签上点击右键,选择“查看代码”。
4、在打开的VBA编辑窗口中粘贴以下代码:
Sub 工作薄间工作表合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
5、关闭VBA编辑窗口。
6、在excel中,工具---宏---宏,选“工作薄间工作表合并”,然后“执行”。
7、在打开的对话窗口中,选择你要合并的300个工作薄。
8、等待执行完毕后查看结果
不太清楚你具体是什么情况,如图是VLOOKUP引用多表的例子。虽然逻辑性不是很强,但是能够达到目的
假设你要引用的是不同表中D4这个单元格。
1.新建表“汇总”,在A列输入“工作表名称”(A2至A…录入n个表的名字)。
2.第二列B2单元格输入公式:“=INDIRECT(CONCATENATE(A2,"!D4"))”,公式的意思是引用“汇总”表A2单元格相同的表中D4单元格的内容。(假设A2=王小明,则引用表“王小明”里的D4单元格的值)
3.拖拽B2的右下角自动生成一列对n个表对应单元格格的引用了,其他的引申就自己开发了,公式可以结合其他运算的。
我做了个演示,无法上传,你自己慢慢弄吧。
请问你是什么版本啊?