Excel vba 实例-一键将单列长数据平均拆成多列

将永恒君的百宝箱设为星标精品文章第一时间读

今天分享的VBA实例是：一键将单列长数据平均拆成多列。

问题描述

不少软件都带有一键导出为excel文件或者csv文件的功能，有时候导出的数据列数比较少，但是有很多行。为了方便查看或者节约打印的纸张，需要尽量将整列的长数据平均拆成短数据。如下图：

将1列100行的数据拆成5列20行。

思路

这个需求，其实比较简单就可以实现。

1、从起始行开始遍历，每隔20行就将遍历的内容复制（或者剪切）一遍。

2、将复制（或者剪切）的内容粘贴到选定的列，下一个20行的内容则复制在下一列。

核心代码如下：

效果演示

问题扩展

上面是单列数据的情况，如果是有多列，比如3列150行的数据，那么就要注意修改以下几个地方：

1、粘贴数据的位置，这里我设置从2行5列单元格开始

2、总共数据的行数，这里修改为150行

3、原数据的列数，本例是有3列，那么rang()函数需要加上C列。

4、粘贴数据的列数

效果演示

如果你觉得文章还不错，请大家点赞分享下。你的肯定是我最大的鼓励和支持。