我想把Excel文件按每30行分割成许多文件怎么办
答案:3 悬赏:10 手机版
解决时间 2021-02-05 22:06
- 提问者网友：感性作祟
- 2021-02-05 08:44
我想把Excel文件按每30行分割成许多文件怎么办
最佳答案
- 五星知识达人网友：北城痞子
- 2021-02-05 09:59
(改成只粘数值的）
建立宏:
Sub NewFile()
If Cells(1, 1) = "" Then Exit Sub
Application.ScreenUpdating = False
MyName = ActiveWorkbook.Name
MySheet = ActiveSheet.Name
MyDir = ActiveWorkbook.Path & "\"
RowNo = 1
FileCount = 0
Do While Cells(RowNo, 1) <> ""
FileCount = FileCount + 1
Workbooks.Add
Workbooks(MyName).Sheets(MySheet).Rows(RowNo & ":" & RowNo + 29).Copy
[A1].PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.SaveAs Filename:=MyDir & FileCount
RowNo = RowNo + 30
ActiveWorkbook.Close
Loop
Application.ScreenUpdating = True
MsgBox (FileCount & " files created.")
End Sub
这是从第一行开始拷的。如果要改变开始拷的行数，把第一个
RowNo = 1
改成你要的行数就行。
另外，这个是要求每三十行的第一个单元格不能是空格。
建立宏:
Sub NewFile()
If Cells(1, 1) = "" Then Exit Sub
Application.ScreenUpdating = False
MyName = ActiveWorkbook.Name
MySheet = ActiveSheet.Name
MyDir = ActiveWorkbook.Path & "\"
RowNo = 1
FileCount = 0
Do While Cells(RowNo, 1) <> ""
FileCount = FileCount + 1
Workbooks.Add
Workbooks(MyName).Sheets(MySheet).Rows(RowNo & ":" & RowNo + 29).Copy
[A1].PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.SaveAs Filename:=MyDir & FileCount
RowNo = RowNo + 30
ActiveWorkbook.Close
Loop
Application.ScreenUpdating = True
MsgBox (FileCount & " files created.")
End Sub
这是从第一行开始拷的。如果要改变开始拷的行数，把第一个
RowNo = 1
改成你要的行数就行。
另外，这个是要求每三十行的第一个单元格不能是空格。
全部回答
- 1楼网友：山河有幸埋战骨
- 2021-02-05 11:00
没办法，只能每30行复制到另一个文件去做！
- 2楼网友：忘川信使
- 2021-02-05 10:36
没明白！是每30行一页吗？
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯