我想把Excel文件按每30行分割成许多文件怎么办

发布网友发布时间：2022-08-17 06:53

共3个回答

热心网友时间：2023-10-10 19:11

(改成只粘数值的）

建立宏:

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
改成你要的行数就行。

另外，这个是要求每三十行的第一个单元格不能是空格。

热心网友时间：2023-10-10 19:12

没办法，只能每30行复制到另一个文件去做！

热心网友时间：2023-10-10 19:12

没明白！是每30行一页吗？