如何将excel表中的数据每500行分成一个表

求学excel大师 · 发表于 2024-11-13 08:41

gwjkkkkk 发表于 2024-11-12 20:24
请参考。。。

你好老师，可以直接创建新的excel表吗？不要在一个excel表中创建sheet

求学excel大师 · 发表于 2024-11-13 08:48

shiruiqiang 发表于 2024-11-12 20:22

谢谢老师，感谢大师指点

求学excel大师 · 发表于 2024-11-13 08:49

quqiyuan 发表于 2024-11-12 20:41
参与一下，仅供参考。。。

您好老师，能创建不同的excel文件，不要在一个excel文件中体现吗

求学excel大师 · 发表于 2024-11-13 08:50

ykcbf1100 发表于 2024-11-12 20:28
附件供参考。。。

您好老师，能创建不同的excel文件，不要在一个excel文件中体现吗

ykcbf1100 · 发表于 2024-11-13 08:58

求学excel大师发表于 2024-11-13 08:50
您好老师，能创建不同的excel文件，不要在一个excel文件中体现吗

那就这样。。。

ykcbf1100 · 发表于 2024-11-13 08:58

再改一下，拆分为工作簿

Sub ykcbf() '//2024.11.13
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set sh = ThisWorkbook.Sheets("Sheet1")
For Each sht In Sheets
If sht.Name <> sh.Name Then sht.Delete
Next
With sh
r = .Cells(Rows.Count, 1).End(3).Row
rr = 500
k = r \ rr + 1
For x = 1 To k
r1 = (x - 1) * rr + 1
If x = k Then r2 = r Else r2 = rr * x
Set wb = Workbooks.Add
With wb.Sheets(1)
sh.Rows(r1 & ":" & r2).Copy .[a1]
.DrawingObjects.Delete
End With
wb.SaveAs ThisWorkbook.Path & "" & x
wb.Close
Next
End With
sh.Activate
Application.ScreenUpdating = True
MsgBox "OK！"
End Sub

复制代码

求学excel大师 · 发表于 2024-11-13 09:01

ykcbf1100 发表于 2024-11-13 08:58
那就这样。。。

可以了，谢谢大师指点！

quqiyuan · 发表于 2024-11-13 09:12

求学excel大师发表于 2024-11-13 08:49
您好老师，能创建不同的excel文件，不要在一个excel文件中体现吗

修改了一下，供你参考。。。
怎么命名你自己看着修改

quqiyuan · 发表于 2024-11-13 09:13

代码如下。。。
Sub test()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim wb As Workbook, sht As Worksheet
Set wb = ThisWorkbook
Set sht = wb.Sheets("sheet1")
arr = sht.[a1].CurrentRegion
For i = 1 To UBound(arr) Step 500
      n = n + 1
      Set ws = Workbooks.Add
      ws.SaveAs wb.Path & "\" & n
      sht.[a1].Offset((n - 1) * 500).Resize(500, UBound(arr, 2)).Copy ws.Sheets(1).[a1]
      ws.Close 1
Next
Beep
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

gwjkkkkk · 发表于 2024-11-13 11:27

求学excel大师发表于 2024-11-13 08:41
你好老师，可以直接创建新的excel表吗？不要在一个excel表中创建sheet

这个简单，有老师帮你写了我不写了

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

[求助] 如何将excel表中的数据每500行分成一个表