用vba代码实现隔行插入的几种方法

 时间:2024-11-10 12:47:17

隔行插入空行在工作中经常遇到,它的vba代码也比较简单,不用辅助列,插入代码后,运行一下即可。隔行插入的vba代码也有很多种,思路不同决定具体代码的不同,但是运行结果都是一样的。今天,我总结除了用vba代码隔行插入的几种方法,分享出来,希望对大家有用。

工具/原料

excel2010工作表

方法/步骤

1、简单说明一下调出vba代码窗口的方法,点击【开发工具】选项卡下的【箪滹埘麽visualbasic】,或者按下【alt+F11】组合键,就调出了vba粕盘镱嘧编辑器,然后点击vba编辑器上方【视图】/【代码窗口】,就调出了vba的代码窗口,在此窗口可以复制或者编辑代码,来帮助我们工作。如果excel中没有【开发工具】选项卡的请点击【文件】/【选项】/【自定义功能区】,将【开发工具】选项前面勾勾勾选上即可。

用vba代码实现隔行插入的几种方法

用vba代码实现隔行插入的几种方法

2、隔行插入代码一:Sub隔行插入方法1()Dimr%a=Application.CountA(Range("a:a"))Forr=3Toa*2Step(2)Rows(r).InsertNextEndSub将上述代码复制或者填写到代码区域,点击代码运行按钮即可。

用vba代码实现隔行插入的几种方法

3、隔行插入代码二:Sub隔行插入方法2()Dima%Doa=a+2Rows(a).InsertLoopUntilCells(a+1,1)=""EndSub将上述代码复制或者填写到代码区域,点击代码运行按钮即可。

用vba代码实现隔行插入的几种方法

4、隔行插入代码三:Sub隔行插入方法3()Dimr%Forr=10To3Step(-1)Rows(r&":"&r).InsertNextEndSub将上述代码复制或者填写到代码区域,点击代码运行按钮即可。

用vba代码实现隔行插入的几种方法

5、隔行插入代码四:Sub隔行插入方法4()Fori=1To9Cells(2*i,1).SelectSelection.EntireRow.InsertNextiEndSub将上述代码复制或者填写到代码区域,点击代码运行按钮即可。

用vba代码实现隔行插入的几种方法

6、隔行插入代艨位雅剖码五:Sub隔行插入方法5()m=[a65536].End(xlUp).RowFor惺绅寨瞀i=2Tom*2Step2Rows(i&":"&i).InsertShift:=xlDownNextiEndSub将上述代码复制或者填写到代码区域,点击代码运行按钮即可。当然,隔行插入的代码还远远不止这几种,不同的思路决定代码是不一样的,只要我们肯动脑子,更多方法就会喷涌而出。

用vba代码实现隔行插入的几种方法

excel中使用vba对单元格进行重复的格式设置 Excel如何提取不重复值、统计不重复值个数? 如何在Excel中用VBA批量新建模板工作表 excel的vba怎么填充序列号? Excel中如何制作立体按钮效果
热门搜索
泰勒斯威夫特图片 word图片显示不全 美工区图片 国画荷花图片大全 斜方肌图片