一张excel表单有42000行数据,现在想按照6000行分拆成7张独立的excel表,请教各位,VBA语言怎么写?
设你的工作表在Sheet1 中,使用VBA(宏)代码,按Alt+F11进入VBA界面,按Alt+i+m插入模块后,复制以下代码,按F5执行。
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