我想把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行一页吗?
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯