🌐
经济型：买域名、轻量云服务器、用途：游戏 网站等 《腾讯云》特点：特价机便宜 适合初学者用
点我优惠购买
🚀
拓展型：买域名、轻量云服务器、用途：游戏 网站等 《阿里云》特点：中档服务器便宜 域名备案事多
点我优惠购买
🛡️
稳定型：买域名、轻量云服务器、用途：游戏 网站等 《西部数码》 特点：比上两家略贵但是稳定性超好事也少
点我优惠购买
文章最后更新时间：2023年05月25日已超过1173天没有更新。
近期采集了大量数据，大概几十万，需要实现每100个数据自动分配到一个工作簿，手工势必显得比较麻烦，其实还有有诀窍的
[yk_WeChatFans]
首先，点击要分配数据的工作簿，点击 查看源码，如图：
其次，输入
1 2 3 4 5 6 7 8 9 10 11 | Sub test() Dim rng As Range, i% Set rng = Sheets(1).[a1:a100] For i = 1 To 100 With Sheets.Add(after:=ActiveSheet) .Name = (i - 1) * 100 + 1 & "-" & i * 100 rng.Copy .[a1] Set rng = rng.Offset(100) End With NextEnd Sub |
合并所有工作表到一个
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Sub Comb()Dim i%On Error Resume NextSheets(1).SelectWorksheets.Add '新建一个工作表Sheets(1).Name = "汇总工作表" '对新建工作表重命名For i = 2 To Sheets.Count 'For循环，遍历所有工作表Sheets(i).Activate '激活工作表Range("a1").SelectSelection.CurrentRegion.Select '选择活动工作表数据区域Selection.Copy Destination:=Sheets(1).Range("a65536").End(xlUp).Offset(1) '粘贴到汇总工作中NextMsgBox ("工作表已全部合并到指定工作表中！") '弹窗提示合并完成End Sub |
[/yk_WeChatFans]
文章版权声明：除非注明，否则均为AI虎哥的工具库原创文章，转载或复制请以超链接形式并注明出处。
还没有评论，来说两句吧...