1、首选打开需要插入标题行的EXCEL表格，如图
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如图所示
5、选择“工具”—“宏”—“宏”如图
7、选择标题行，如图
