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.如图所示。
5.单击"EXCEL视图"返回EXCEL表格 如图。
6.选择“工具”—“宏”—“宏”如图。
7.在打开的宏面部选择“执行”如图。
8.选择标题行,如图。
9.单击“确定”就可以完成插入标题行操作。如果需要插入标题行和空行,在第7步时在标题行上再插入一行,选择两行作为标题行插入即可。执行效果如图。
2010-11-19