Question

一张excel表单有42000行数据，现在想按照6000行分拆成7张独立的excel表，请教各位，

一张excel表单有42000行数据，现在想按照6000行分拆成7张独立的excel表，请教各位，VBA语言怎么写？

Answer 1

设你的工作表在Sheet1 中，使用VBA（宏）代码，按Alt+F11进入VBA界面，按Alt+i+m插入模块后，复制以下代码，按F5执行。

Sub 分解工作表()
Dim i As Integer, j As Integer
j = 6000
For i = 0 To 6
    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "分解" & i + 1
    Sheets("sheet1").Activate
    ActiveSheet.Rows((i * j + 1) & ":" & (i * j + j)).Copy
    Sheets("分解" & i + 1).Activate
    ActiveSheet.Paste
Next
End Sub

Answer 2

Sub main()
For i = 1 To 42000 Step 6000
arr = Range("A" & i & ":Z" & i + 5999)
Workbooks.Add
ActiveWorkbook.Sheets(1).Range("A1").Resize(6000, UBound(arr, 2)) = arr
ActiveWorkbook.Save
Set arr = Nothing
Next i
End Sub

追问

你好，你的代码运行下来的话，出现了个问题，就是我的文本格式的都转化为数字格式了（分拆后格式不能改变），大神可以再改进一下代码么？谢谢啦

追答

Sub main()
For i = 1 To 42000 Step 6000
Workbooks.Add
range("A"&i& ":Z" & i + 5999).copy ActiveWorkbook.Sheets(1).Range("A1")
ActiveWorkbook.Save
Set arr = Nothing
Next i
End Sub

Answer 3

点菜单栏，工具，宏，录制宏
复制表标题行，新建—个工作表，粘贴标题行，然后再回去复制几行数据行，再粘贴，结束录制宏。
最后修改宏代码，并加上循环语句，多试几次，多改几次就行了。