Excel VBA 分列并排序

今天要讲的例子主要涉及到分列。

这一篇文章,可以结合之前的文章《Excel VBA 一列数据转换成指定行数》 一起看

问题如下:

Excel VBA 分列并排序

解决的思路如下:

Excel VBA 分列并排序

代码运行的结果如下:

Excel VBA 分列并排序

代码如下:

Excel VBA 分列并排序

代码解析

1:2行 DIM定义变量,arr是原始数据,brr是中间数据,crr是目标数据;

2:3~6行 把原始数据传给arr,并读取C1单元格的值;

3:8行 把arr数组,传给brr;

4:9~12行 把从C1单元格开始值,传给brr;

5:13~16行 把从1到C1单元格的值,传给brr。

6:17行 定义目标数据的大小;

7:18行 设定n=1,用来n来控制列数。

8:19~23 把中间数据,按照要求的行列进行拆分。用mod运算的结果来判断,是否分列。

9:25~28行 清空目标区域,并写入目标数组。

私信 视频 可以获取54集VBA入门视频

私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件


分享到:


相關文章: