1、首选打开需要插入标题行的EXCEL表格，如图
2、单击菜单"工具"—”宏“—“VISUAL BASIC编辑器”，打开VISUAL BASIC编辑器，如图
3、在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) <> ""End WithApplication.CutCopyMode = FalseApplication.ScreenUpdating = TrueSet k = NothingEnd Sub如图所示
4、单击"EXCEL视图"返回EXCEL表格 如图
5、选择“工具”—“宏”—“宏”如图
6、在打开的宏面部选择“执行”如图
7、选择标题行，如图
8、单击“确定”就可以完成插入标题行操作。如果需要插入标题行和空行，在第7步时在标题行上再插入一行，选择两行作为标题行插入即可。执行效果如图
