用一个VBA就可以实现的。
使用方法：
1、新建一个工作薄，将其命名为你合并后的名字。
2、打开此工作薄。
3、在其下任一个工作表标签上点击右键，选择“查看代码”。
4、在打开的VBA编辑窗口中粘贴以下代码：
Sub 工作薄间工作表合并()
使用方法：
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！如果是excel2007及更新的版本，则需要把代码中的xls修改为xlsx即可。
文章末尾固定信息
我的微信
我的微信
微信扫一扫
9F
当你毫不怀疑地相信一个人，那么你最终有可能得到两种结果，要么得到一个值得托付一生的人，要么得到一个值得铭记一生的教训。
8F
趁阳光正好;趁微风不噪;趁繁花还未开至荼蘼;趁现在还年轻，还可以走很长很长的路，还能诉说很深很深的思念。
7F
千万不要把自己的软弱展现给别人看;千万不要把自己的狼狈述说给别人听;因为根本没有人会觉的你很可怜，只会觉的你很无能很没用。什么事情都要学会自己一个人承担，因为没有人会帮你。什么事情都要学会自己一个人坚强，因为凡事都靠自己。
6F
多少次又多少次，回忆把生活划成一个圈，而我们在原地转了无数次，无法解脱。总是希望回到最初相识的地点，如果能够再一次选择的话，以为可以爱得更单纯。
5F
再好的东西也有失去的一天;再深的记忆也有淡忘的一天;再爱的人，也有走远的一天;再美的梦也有苏醒的一天。缘分就像一本书，翻的不经意会错过童话，读得太认真又会流干眼泪。
4F
我迷茫，但我从不逃避现实;我冷漠，可是只要遇见对的人，我会燃烧;我怯弱，但必要时我会拿出足够的勇气;我没有宏伟的理想，但每一天我都在默默的努力;我也许渺小，但我值得自己骄傲!
3F
你的婉约，划过我的眼帘，化成一帘幽梦，洒落在柔进月夜，轻轻惹起千丝万缕的牵挂。
2F
你错失了夏花绚烂，必将会走进秋叶静羌。任何事，任何人，都会成为过去，不要跟它过不去。
1F
活着就是一切，活着就是乐，活着也有苦，苦里却也有乐;就如一片树叶，我该生的时候，我生气勃勃地来，长我的绿，现我的形，到该落的时候了，我痛痛快快地去，让别的叶子又从我的落疤里新生。