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

 时间:2024-10-12 16:25:46

需要隔列或隔行插入空列空行的情况似乎很少见,但是今天办公室的妹子枥昂龄室突然问起。我说:“按住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 如何隔列或隔行插入空列空行

Excel VBA实现取字符串中数字并求和 VBA代码给单元格赋值 怎样使用VBA自定义状态栏进度条? 使用VBA生成满足条件的日期 在excel中增加、删除、有条件添加批注的vba代码
热门搜索
小兔子头饰图片 动漫头像情侣 卫生间玻璃门图片 好看的图片动漫 另类色图片