excel每100个数据自动分配到一个工作簿

一时失言乱红尘 2024-03-22 16:00 78阅读 0赞

近期采集了大量数据，大概几十万，需要实现每100个数据自动分配到一个工作簿，手工势必显得比较麻烦，其实还有有诀窍的

首先，点击要分配数据的工作簿，点击 查看源码，如图：

![ccce9431787594d4d951efec86533d55.png][]

其次，输入

<table> 
 <tbody> 
 <tr> 
 <td> 1 2 3 4 5 6 7 8 9 10 11 </td> 
 <td> <code>Sub&nbsp;test()</code> <code>&nbsp;&nbsp;&nbsp;&nbsp;</code><code>Dim&nbsp;rng&nbsp;As&nbsp;Range,&nbsp;i%</code> <code>&nbsp;&nbsp;&nbsp;&nbsp;</code><code>Set&nbsp;rng&nbsp;=&nbsp;Sheets(1).[a1:a100]</code> <code>&nbsp;&nbsp;&nbsp;&nbsp;</code><code>For&nbsp;i&nbsp;=&nbsp;1&nbsp;To&nbsp;100</code> <code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</code><code>With&nbsp;Sheets.Add(after:=ActiveSheet)</code> <code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</code><code>.Name&nbsp;=&nbsp;(i&nbsp;-&nbsp;1)&nbsp;*&nbsp;100&nbsp;+&nbsp;1&nbsp;&amp;&nbsp;"-"&nbsp;&amp;&nbsp;i&nbsp;*&nbsp;100</code> <code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</code><code>rng.Copy&nbsp;.[a1]</code> <code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</code><code>Set&nbsp;rng&nbsp;=&nbsp;rng.Offset(100)</code> <code>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</code><code>End&nbsp;With</code> <code>&nbsp;&nbsp;&nbsp;&nbsp;</code><code>Next</code> <code>End&nbsp;Sub</code> </td> 
 </tr> 
 </tbody> 
</table>

然后点击上面的运行即可完成需求

![00e1557bab6037fceb9ccf22f1c0f8cf.png][]

合并所有工作表到一个

![c6e498e50f38e445c6ed8a3177bb8bba.png][]

<table> 
 <tbody> 
 <tr> 
 <td> 1 2 3 4 5 6 7 8 9 10 11 12 13 14 </td> 
 <td> <code>Sub&nbsp;Comb()</code> <code>Dim&nbsp;i%</code> <code>On&nbsp;Error&nbsp;Resume&nbsp;Next</code> <code>Sheets(1).Select</code> <code>Worksheets.Add&nbsp;'新建一个工作表</code> <code>Sheets(1).Name&nbsp;=&nbsp;"汇总工作表"&nbsp;'对新建工作表重命名</code> <code>For&nbsp;i&nbsp;=&nbsp;2&nbsp;To&nbsp;Sheets.Count&nbsp;'For循环，遍历所有工作表</code> <code>Sheets(i).Activate&nbsp;'激活工作表</code> <code>Range("a1").Select</code> <code>Selection.CurrentRegion.Select&nbsp;'选择活动工作表数据区域</code> <code>Selection.Copy&nbsp;Destination:=Sheets(1).Range("a65536").End(xlUp).Offset(1)&nbsp;'粘贴到汇总工作中</code> <code>Next</code> <code>MsgBox&nbsp;("工作表已全部合并到指定工作表中！")&nbsp;'弹窗提示合并完成</code> <code>End&nbsp;Sub</code> </td> 
 </tr> 
 </tbody> 
</table>

[ccce9431787594d4d951efec86533d55.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/18/55d880f2ec2c4b038d4d27f814e0d645.png
[00e1557bab6037fceb9ccf22f1c0f8cf.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/18/c2895e012ea14c2ea4d0976c77cda369.png
[c6e498e50f38e445c6ed8a3177bb8bba.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/18/43f1a5ce17aa4d0da76955a476e6e184.png