今天要讲的例子主要涉及到分列。
这一篇文章,可以结合之前的文章《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文件
閱讀更多 浮雲Excel分享 的文章