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

excel vba实例004 如何隔列或隔行插入空列空行

时间:2024-10-12 18:20:06

需要隔列或隔行插入空列空行的情况似乎很少见,但是今天办公室的妹子枥昂龄室突然问起。我说:“按住ctrl隔列或者隔行选然后插入啊。”“麻谘轰室轹烦!”她是一脸不屑。“首行或者首列插入数值排序啊。”我无奈。“插入多行多列岂不是要弄很多,烦!”妹子一向是很懒的。“好吧,写个VBA吧。”我无奈。于是就有了下面这个VBA的诞生。

工具/原料

硬件:电脑

软件:OfficeExcel(这里用的是OfficeExcel2013版)

方法/步骤

1、先来说插入列的问题,可以看到有20列,想要隔列插入空列,即1234...变成1234...,前两种方法给妹子鄙视了,现在就只能用VBA了。

excel vba实例004 如何隔列或隔行插入空列空行

2、打开Excel后按Alt+F11,打开VBA编辑窗口,在sheet1(sheet1)处双击以打开代码编辑窗口,然后再该窗口输入代码。

excel vba实例004 如何隔列或隔行插入空列空行

3、这个是控制插入列的代码(我在这里给加点注释,直接复制也没有关系)佼沣族昀:Sub插入空列()Fori=1To20'20即插入20列Ce造婷用痃lls(1,2*i).Select'(1,2*i)即在第1行,2*i列处插入Selection.EntireColumn.Insert'EntireColumn列NextiEndSub

excel vba实例004 如何隔列或隔行插入空列空行

4、现在运行一下(看到一个绿色的小三角没有,就是它,按它)来看一下效果,可以看到1234...变成1234...,表示可以了,如果需要插入多列的话修改一下上图用红框框注的几个值就可以了。不难,自己研究了。

excel vba实例004 如何隔列或隔行插入空列空行

5、这个是控制插入行的代码(我在这里就不加注释了):Sub插入空行猾诮沓靥()Fori=1To10Cells(2*i,1).SelectSelection.EntireR泠贾高框ow.InsertNextiEndSub

excel vba实例004 如何隔列或隔行插入空列空行

6、现在运行一下来看一下效果,可以看到第一列的1234...变成1234...,,如果需要插入多行的话修改一下值就可以了,这里也不多解释了。

excel vba实例004 如何隔列或隔行插入空列空行

© 一点知识