养生 装修 购物 美食 感冒 便秘 营销 加盟 小吃 火锅 管理 创业 搭配 减肥 培训 旅游

EXCEL数据由7列变为8列(VBA方法)

时间:2024-11-13 21:19:18

一大堆原始数据在Excel中按照每行7行的格式排列,也许你想将数据变为8行的排列格式或者其他的格式,可以参照此VBA的方法搞定。公式方法见:http://jingyan.baidu.com/article/4d58d541d2f1829dd4e9c08e.html

工具/原料

Excel

方法/步骤

1、打开Excel,将原始数据录入,为了方便能更为直观的看到数据的排列过程,我将每个数据都设置为不一样的编号。

EXCEL数据由7列变为8列(VBA方法)

2、对于第一步,我们也可以使用VBA的方式来实现。打开E垓矗梅吒xcel后,右击标签选择查看代码(或者按alt+F11),按照下图,在空白处右击选择插入模块,瓴烊椹舟将如下代码复制到模块中,按F5执行,得到如上图结果:Subgr()Dima,bFora=1To73Forb=1To7Sheet1.Cells(a,b)=(a-1)*7+bNextNextEndSub

EXCEL数据由7列变为8列(VBA方法)

3、按照上一步的做法,再锪者谧桁新建一个模块,将如下代码复制到模块2中,按F5执行,则得到下图结果:Subchange()Dima,b,惺绅寨瞀c,d,eFora=1To73Forb=1To7c=Int(((a-1)*7+b-1)/8)+1d=(a-1)*7+b-(c-1)*8Sheet2.Cells(c,d)=Sheet1.Cells(a,b)NextNextEndSub

EXCEL数据由7列变为8列(VBA方法)

4、当然,如果你想按照其他的格式,每行排列9个,10个,都可以,只需要将上述代码中的8修改为你想要的就OK了。

EXCEL数据由7列变为8列(VBA方法)

© 一点知识