请问<em>EXCEL</em>如何用<em>VBA</em>将同一工作

用一个VBA就可以实现的。e5a48de588b6e799bee5baa6e997aee7ad94330
使用方法：
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、等待。。。。ok！

录制个宏不就知道了。录制宏，复制、粘贴，停止录制，加个循环。
sheet2.[C3]=sheet1.[A5]
上机这样也可以。

Sub jh()
Dim i%
For i = 1 To Sheets.Count
If Replace(Sheets(i).Name, "材料", "") <> Sheets(i).Name Then Sheets(i).Select
Next
End Sub
Sub JHDQ()
Dim i%
For i = 1 To Workbooks.Count
If Replace(Workbooks(i).Name, "材料", "") <> Workbooks(i).Name Then Workbooks(i).Activate
Next
End Sub
不清楚你想怎百么激活，给你激活的是最后度一个，不清楚你想要工作薄还内是工作表，两个都给容你了。