![如何使用 VBA 从下一行添加一定数量的单元格](https://linux22.com/image/1546757/%E5%A6%82%E4%BD%95%E4%BD%BF%E7%94%A8%20VBA%20%E4%BB%8E%E4%B8%8B%E4%B8%80%E8%A1%8C%E6%B7%BB%E5%8A%A0%E4%B8%80%E5%AE%9A%E6%95%B0%E9%87%8F%E7%9A%84%E5%8D%95%E5%85%83%E6%A0%BC.png)
我正在尝试使用 VBA 找出一种方法,将数据从下一行添加到当前行,一旦达到列限制,就从下一行开始并继续。从这样的事情开始:
原创...5 栏
然后把它变成这样:
例 1...7 列
或这个:
例 2...8 列
答案1
我认为最简单的方法不是实际剪切和粘贴单元格中的数据值,而是吸收整个网格,然后将其粘贴到您想要的尺寸中。
- 设置你的子项以获取一个范围和一个数字(用于结果列数)。
- 循环遍历范围,将每个值添加到数组或其他集合中。
- 删除现有数据
- 遍历数组,将值插入到空白表中,直到达到所需的列数,然后增加行数并继续。