将永恒君的百宝箱设为星标精品文章第一时间读
今天分享的VBA实例是:一键将单列长数据平均拆成多列。
问题描述
不少软件都带有一键导出为excel文件或者csv文件的功能,有时候导出的数据列数比较少,但是有很多行。为了方便查看或者节约打印的纸张,需要尽量将整列的长数据平均拆成短数据。如下图:
将1列100行的数据拆成5列20行。
思路
这个需求,其实比较简单就可以实现。
1、从起始行开始遍历,每隔20行就将遍历的内容复制(或者剪切)一遍。
2、将复制(或者剪切)的内容粘贴到选定的列,下一个20行的内容则复制在下一列。
核心代码如下:
效果演示
问题扩展
上面是单列数据的情况,如果是有多列,比如3列150行的数据,那么就要注意修改以下几个地方:
1、粘贴数据的位置,这里我设置从2行5列单元格开始
2、总共数据的行数,这里修改为150行
3、原数据的列数,本例是有3列,那么rang()函数需要加上C列。
4、粘贴数据的列数
效果演示
如果你觉得文章还不错,请大家点赞分享下。你的肯定是我最大的鼓励和支持。
领取专属 10元无门槛券
私享最新 技术干货