excel表格拆分
答案:4 悬赏:60
解决时间 2021-02-14 18:07
- 提问者网友：呆萌心雨
- 2021-02-13 18:01
excel表格拆分
最佳答案
- 二级知识专家网友：夢想黑洞
- 2021-02-13 18:23
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
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
全部回答
- 1楼网友：为你轻狂半世殇
- 2021-02-13 22:32
测试了一下，，，，没问题。。。。。。。。。。。。。。
- 2楼网友：深街酒徒
- 2021-02-13 21:27
excel中的单元格只能合并行或列，不能拆分。要获得看起来像拆分的效果，只有把相对应的单元格合并起来。
如你图中的压字一行，只有在该行的前面后后面插入一行，然后压字与上面一个单元格或下面一个单元格合并。
- 3楼网友：末路丶一枝花
- 2021-02-13 19:56
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯