拆分表格，求助

whatyang · 发表于 2019-1-25 15:08

本帖最后由 whatyang 于 2019-1-25 15:26 编辑

电话号码汇总.rar (24.05 KB, 下载次数: 11) 有一份单列excel表格，只有一列，列名为“电话号码”，下面有很多电话号码
需要拆分为多个csv格式的表，每个csv分表，列名“电话号码”，下面最多2000个号码

每个csv分表的命名可以是按数字顺下去就行

补充说明：

原本是计划一次性导入系统的，但是因为系统有最大2000的限制，所以要拆分

苏小亓 · 发表于 2019-1-25 15:11

附件在那里？

whatyang · 发表于 2019-1-25 15:14

苏小亓发表于 2019-1-25 15:11
附件在那里？

补上了，麻烦看一下谢谢

苏小亓 · 发表于 2019-1-25 15:25

每个表2000个号码？

whatyang · 发表于 2019-1-25 15:25

原本是计划一次性导入系统的，但是因为系统有最大2000的限制，所以要拆分

whatyang · 发表于 2019-1-25 15:26

苏小亓发表于 2019-1-25 15:25
每个表2000个号码？

是的，最多2000个（最后一个有多少是多少）

苏小亓 · 发表于 2019-1-25 15:32

电话号码汇总.zip (11.21 KB, 下载次数: 29)

whatyang · 发表于 2019-1-25 15:36

苏小亓发表于 2019-1-25 15:32

感谢！太感谢，帮了大忙，谢谢！

whatyang · 发表于 2019-1-25 15:37

苏小亓发表于 2019-1-25 15:32

额，代码有吗~~刚才的数据是我的示例数据，谢谢~

lsc900707 · 发表于 2019-1-25 15:40

Sub gj23w98()
Application.ScreenUpdating = False
With Sheet1
      For i = 2 To .Cells(.Rows.Count, 1).End(3).Row Step 2000
         k = k + 1
         Set wb = Workbooks.Add
         wb.Sheets(1).[a1] = "电话号码"
         .Rows(i).Resize(2000).Copy wb.Sheets(1).[a2]
         wb.SaveAs Filename:=ThisWorkbook.Path & "\" & k & ".csv", FileFormat:=xlCSV
         wb.Close True
      Next
End With
Application.ScreenUpdating = True
End Sub

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

[已解决] 拆分表格，求助