如何用宏命令将一个EXCEL文件(文件里有1万多行数据）每500行数据,分成一个EXCEL文件,以次类推。

发布网友发布时间：2022-05-24 12:06

共1个回答

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

你的数据表是sheet1,我下面的vba是把sheet1的500行复制到sheet2，然后删除sheet1的500行，再把sheet2另存在f:\111目录下，自动取名为1.xls，名字是逐步累加，我设置循环21此，也就是下面i>20那里控制，你自己改成需要的循环次数。

最后还有一个重点，你下次问此类问题最好给高分，0分太没诚意，真的，这段代码对你很重要，要不是今天我有兴趣，我还不看这些0分的悬赏！

Sub zz20100901()
Dim wks As Worksheet
Set wks = Worksheets("sheet2") '把sheet
For i = 1 To 999

Sheets("Sheet1").Select
Rows("1:500").Select
Selection.Copy
Sheets("Sheet2").Select
Rows("1:500").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp

wks.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="f:\111\" & i & ".xls"
Application.DisplayAlerts = True

If i > 20 Then

Exit For
End If
Next

ActiveWorkbook.Close
End Sub