如何将一个有20000条数据的EXCEL表拆分成多个表，每个表中有500条数据。
4个回答
展开全部
可以用宏来做。具体的可以发表来看看
追问
数据涉及到保密，没发上传，能简单介绍下么？
追答
Sub aa()
Dim i&
For i = 1 To 20000 Step 500
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = i
Range("a" & i & ":iv" & i + 499).Copy Sheets(Sheets.Count).[a1]
Next i
End Sub
右键工作表标签——查看代码——粘贴代码——运行代码（F5键）
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
如何将一张工作表拆分成多个工作表？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
用vba，每500去一个新的sheet
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
