每隔10行拆分并复制到对应表中

laterite

求教：用VBA代码，将表2中的表每次只容纳10行数据，且每表相隔5行隔断，如何将表1中的人员每10人填入表2中表格及相对应的表列（序号列不用管），谢谢

ykcbf1100

附件供参考。。。

仙女配凡人

不太会vba，试试用WPS JS代码

1. function split_data() {
   
2.   let sht1 = Sheets('表1')
   
3.   let sht2 = Sheets('表2')
   
4.   let arr = sht1.Range('A1').CurrentRegion.Value2
   
5. 
   
6.   const data = arr.map(i => [i[0], i[3]])
   
7.   data.shift()
   
8. 
   
9.   let size = 10
   
10.   let page = Math.ceil(data.length / size); //分页取整，若有余数+1
    
11.   for (let i = 1, ros = 3; i <= page; i++, ros += 17) {
    
12.     if (i < page) {
    
13.       let arr = data.slice(i * size - size, i * size)
    
14.       sht2.Range('B' + ros).Resize(10, 2).Value2 = arr
    
15. 
    
16.     } else {
    
17.       let arr = data.slice(i * size - size)
    
18.       sht2.Range('B' + ros).Resize(arr.length, 2).Value2 = arr
    
19.     }
    
20. 
    
21.   }
    
22. }

复制代码

laterite

ykcbf1100 发表于 2023-4-12 15:10
附件供参考。。。

感谢帮助，代码完美实现我的需求

洋务德雷

参与一下。写完了，才发现已经有大师回应了。
觉得有用就给个鲜花

laterite

洋务德雷 发表于 2023-4-12 15:26
参与一下。写完了，才发现已经有大师回应了。
觉得有用就给个鲜花

每一位的帮助对我都是宝贵的，感谢

laterite

仙女配凡人 发表于 2023-4-12 15:11
不太会vba，试试用WPS JS代码

不好意思，电脑只装了office，无法测试

gwjkkkkk

参与一下。。。

lushang2018

laterite

gwjkkkkk 发表于 2023-4-12 20:05
参与一下。。。

感谢，又学到一个新的方法