1,1个EXCEL表里有两个或更多sheet,我想把他们所有的拆分成单独的表格,请回答我一个快捷的方式,最大化减少工作量,粘贴复制我也会,就不用跟我说了。
2,多个EXCEL并且每一个都含有多个sheet,我想将其汇总到一个EXCEL里,使他们变成一个EXCEL里的N个sheet,求最大化减少工作量的快捷操作(PS:那个网上什么所谓的合成工具只合成每个表的第一个sheet,对我来说没用)
坐等大神
EXCEL大神来回答
答案:3 悬赏:80 手机版
解决时间 2021-12-22 06:26
- 提问者网友:遁入空寂
- 2021-12-21 12:22
最佳答案
- 五星知识达人网友:行路难
- 2021-12-21 13:26
这个 我都有
拆分工作薄的程序,我之前写的,
Alt+F11 视图--代码窗口,
把如下复制进去(如果复制进去不换行,复制到Word 再复制进去) 按F5运行即可
最好把这个Excel 放到一个文件夹内操作, 因为默认生成到当前文件夹
Sub fencun()
Application.ScreenUpdating = False
b = Sheets.Count
For i = 1 To b
Sheets(i).Copy
a = ThisWorkbook.Worksheets(i).Name
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".xls"
.Close
End With
Next i
Application.ScreenUpdating = true
End Sub
合并所有工作表:
请百度Hi我, 可以现写一个
拆分工作薄的程序,我之前写的,
Alt+F11 视图--代码窗口,
把如下复制进去(如果复制进去不换行,复制到Word 再复制进去) 按F5运行即可
最好把这个Excel 放到一个文件夹内操作, 因为默认生成到当前文件夹
Sub fencun()
Application.ScreenUpdating = False
b = Sheets.Count
For i = 1 To b
Sheets(i).Copy
a = ThisWorkbook.Worksheets(i).Name
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & a & ".xls"
.Close
End With
Next i
Application.ScreenUpdating = true
End Sub
合并所有工作表:
请百度Hi我, 可以现写一个
全部回答
- 1楼网友:怀裏藏嬌
- 2021-12-21 15:28
EXCEL汇总专家5.0
- 2楼网友:几近狂妄
- 2021-12-21 14:38
你这个用名称的话不是很好,你可以把后面的火车合计、飞机合计、大炮合计改成火车、飞机、大炮 然后用sumif函数进行求和,假定你的表合计位置为k3,那么在k3中输入=sumif($b$2:$j$2,k2,$b$3:$j$3)
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯