Excel按照行数分割为多个独立的工作薄，

jerry83 · 发表于 2023-7-3 20:28

需求：假设有一个工作薄有162行，希望实现如下想法（表格见附件），

（1）将工作表薄按照20行分割为多个独立的工作薄，同时前两行数据保持不变。
（2）请问是否可以按照20-25之间的任意数据去分割工作薄，同时前两行数据保持不变。

liulang0808 · 发表于 2023-7-4 07:53

Sub test()
s = 20
Application.ScreenUpdating = False
Set sh = Sheets(1)
sh.Copy
x = 0
With ActiveWorkbook
      .Sheets(1).UsedRange.Offset(2).Clear
      For j = 3 To sh.Cells(Rows.Count, 1).End(3).Row Step s
         sh.Cells(j, 1).Resize(s).EntireRow.Copy .Sheets(1).[a3]
         x = x + 1
         .SaveAs ThisWorkbook.Path & "\" & x & ".xlsx"
      Next j
      .Close False
End With
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2023-7-4 07:54

TTTT.zip (94.99 KB, 下载次数: 17)
模拟结果供参考。。。。

ykcbf1100 · 发表于 2023-7-4 09:31

参与一下。

jerry83 · 发表于 2023-7-4 09:55

ykcbf1100 发表于 2023-7-4 09:31
参与一下。

感谢老师的答案！就是这个功能

jerry83 · 发表于 2023-7-5 16:06

liulang0808 发表于 2023-7-4 07:53
Sub test()
s = 20
Application.ScreenUpdating = False

谢谢老师的辛苦解答

gwjkkkkk · 发表于 2023-7-5 17:20

参与一下。。。

jerry83 · 发表于 2023-7-10 16:44

liulang0808 发表于 2023-7-4 07:53
Sub test()
s = 20
Application.ScreenUpdating = False

老师，请教下，如何将文件保存为97-2003格式的excel。

liulang0808 · 发表于 2023-7-10 16:57

另存为那段代码修改喜爱

liulang0808 · 发表于 2023-7-10 16:58

新建文件夹 (3).zip (98.58 KB, 下载次数: 7)

		自动登录	找回密码
密码			免费注册

Excel按照行数分割为多个独立的工作薄，

评分

评分

评分