VBA：把每隔一行自动添加N行空白行

思路：

新建一个sheet，把表头和第二行先复制黏贴过来，然后从第三行开始遍历，每复制黏贴一行后再往下延N行，直至把原表数据完全复制完毕

1、辅助函数

Sub create_sheet(i As String)
'
' 宏3 宏
''On Error GoTo 999Sheets("新sheet").SelectCells.SelectApplication.CutCopyMode = FalseSelection.Delete Shift:=xlUpExit Sub
999Sheets.AddActiveSheet.Name = "新sheet"End Sub

2、主要函数

Sub 自动添加行()
'
' 宏1 宏
''添加sheetCall create_sheet(1)'把表头复制黏贴Sheets("导入模板").SelectRange("A1:F1").SelectSelection.CopySheets("新sheet").SelectRange("A1").SelectActiveSheet.Paste'把除表头外的第一行复制黏贴Sheets("导入模板").SelectRange("A2:F2").SelectApplication.CutCopyMode = FalseSelection.CopySheets("新sheet").SelectRange("A2:F2").SelectActiveSheet.Paste'开始遍历并复制黏贴Dim i As IntegerFor i = 3 To 469  '这里修改原始sheet的最大行j = (i - 2) * 9 + 2 '这里修改每一行间插入几行，比如是8行，这边就填8+1=9Sheets("导入模板").SelectRange("A" & i & ":F" & i).SelectApplication.CutCopyMode = FalseSelection.CopySheets("新sheet").SelectRange("A" & j).SelectActiveSheet.PasteNextEnd Sub

成果：

VBA：把每隔一行自动添加N行空白行相关推荐

Excel VBA 自动添加新行并递增ID
Excel VBA 自动添加新行并递增ID 用Excel 2010的VBA功能来处理数据,主要根据IP网段和网段IP个数,来生成每个IP地址,并进行ID编号. Sub AutoInsert()Line ...
Shell实现自动添加新行
博文背景有时候命令的输出没有新的换行,看着很难受,如何自动添加新行呢? 具体操作 curl -fsSL https://ip.cn/api/index?type=0 | perl -nle 'pri ...
如何实现输入银行卡号每隔四位自动添加一个空格的功能？
由于银行卡号是相对比较长的,一般银行卡的都是呈现每隔四位数自动补齐一个空格,且再次输入光标不会错位.这里我们使用 element-ui 库中的 el-input 组件中的 input 事件,对输入的 ...
vba 删除添加checkbox_如何设置EXCEL输入内容后自动添加边框？
在Excel中我们经常需要对输入的表格内容添加边框,一般的操作步骤是,先输入内容,再设置边框.但这样的问题在于,如果我们下次还要继续输入内容,还要再次添加边框,如果删除内容,还要手动去除边框. 那有没 ...
CorelDRAWX4的VBA插件开发(四十六)VBA插入启动事件让CDR启动时检测并自动添加工具栏和按钮
先上结果图,这个工具栏和按钮都是主程序自动生成的在程序的运行当中,如果我们希望程序能够自己创建工具栏和按钮,可以在CDR启动事件中设置一个检测功能 Private Sub GlobalMacroSt ...
Excel VBA | 自动添加序列号
提示:程序代码是根据实际工作的需求编写的,仅供参考学习使用. 文章目录一.需要实现的功能 :自动添加序列号二.程序代码程序代码(一) 程序代码(二) 一.需要实现的功能 :自动添加序列号操作软 ...
让vim不要自动添加新的注释行
vim里面有一个特性,如果你在一行注释后新加一行,vim会自动在下一行的开始位置添加注释符号.例如对于C/C++来说 //This is a comment line // ...
python 为html页面增加背景_Python 给html css自动添加注释
Python 给html css自动添加注释(2020年11月8日) 背景大二上学期专业开设了网页设计课程,专门学习html和css,有时候也经常有同学找我来帮忙看看他们写的代码,并且改改,我就忽然 ...
Eclipse用法和技巧十五：自动添加未实现方法1
java代码中经常要实现一些接口,这个也是java代码独有的地方.实现接口,就意味着要实现这个接口中定义的方法,如果一个个去码出方法就需要记得方法名称等等,就算有内容辅助快捷键帮助,也是很麻烦的.这里 ...

VBA：把每隔一行自动添加N行空白行

思路：

1、辅助函数

2、主要函数

成果：

VBA：把每隔一行自动添加N行空白行相关推荐

最新文章

热门文章