EXCEL大神来回答

答案:3 悬赏:80 手机版

解决时间 2021-12-22 06:26

提问者网友：遁入空寂
2021-12-21 12:22

1，1个EXCEL表里有两个或更多sheet，我想把他们所有的拆分成单独的表格，请回答我一个快捷的方式，最大化减少工作量，粘贴复制我也会，就不用跟我说了。
2，多个EXCEL并且每一个都含有多个sheet，我想将其汇总到一个EXCEL里，使他们变成一个EXCEL里的N个sheet，求最大化减少工作量的快捷操作（PS：那个网上什么所谓的合成工具只合成每个表的第一个sheet，对我来说没用）

坐等大神

最佳答案

五星知识达人网友：行路难
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我，可以现写一个

全部回答

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)

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息