在EXCEL中,如何每隔一行插入一行标题-Excel教程

我们做财务的做工资条的时候，每张工资条都需要有个标题行，手工插入太麻烦，今天学习一一种新方法跟大家分享一下！

前期准备工作（包括相关工具或所使用的原料等）

excel2013

详细的操作方法或具体步骤

首选打开需要插入标题行的EXCEL表格，如图

单击菜单"工具"—”宏“—“VISUAL BASIC编辑器”，打开VISUAL BASIC编辑器，如图

在VISUAL BASIC编辑器如下一下代码：

Sub 插入标题()On Error Resume Next '设置错误处理Dim k As Range, intRow%Set k=Application.InputBox("请选择标题行所在单元格：", "选择标题行", Type:=8)If k Is Nothing Then Exit SubintRow=1Application.ScreenUpdating=FalseWith ActiveSheet Do k.EntireRow.Copy '复制标题行 .Rows(intRow * (k.Rows.Count + 1) + k.Cells(1, 1).Row).Insert Shift:=xlDown '隔行插入标题行 intRow=intRow + 1 '计数器累加 Loop While .Cells(intRow * (k.Rows.Count + 1) + k.Cells(1, 1).Row, k.Column) <> "" WithApplication.CutCopyMode=FalseApplication.ScreenUpdating=TrueSet k=Nothing Sub

如图所示

单击"EXCEL视图"返回EXCEL表格 如图

选择“工具”—“宏”—“宏”如图

在打开的宏面部选择“执行”如图

选择标题行，如图

单击“确定”就可以完成插入标题行操作。如果需要插入标题行和空行，在第7步时在标题行上再插入一行，选择两行作为标题行插入即可。执行效果如图

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本文系本人依照真实经历原创，未经许可，谢绝转载。