如何使用 VBA 从下一行添加一定数量的单元格

如何使用 VBA 从下一行添加一定数量的单元格

我正在尝试使用 VBA 找出一种方法,将数据从下一行添加到当前行,一旦达到列限制,就从下一行开始并继续。从这样的事情开始:

原创...5 栏

原创...5 栏

然后把它变成这样:

例 1...7 列

例 1...7 列

或这个:

例 2...8 列

例 2...8 列

答案1

我认为最简单的方法不是实际剪切和粘贴单元格中的数据值,而是吸收整个网格,然后将其粘贴到您想要的尺寸中。

  • 设置你的子项以获取一个范围和一个数字(用于结果列数)。
  • 循环遍历范围,将每个值添加到数组或其他集合中。
  • 删除现有数据
  • 遍历数组,将值插入到空白表中,直到达到所需的列数,然后增加行数并继续。

相关内容