工资条几乎是每一家公司都需要制作的东西,其中涉及到的一个步骤就是给每个员工的信息上都增加一个标题行,这样才方便后续的分发。这里会以下图为例,介绍3中不同的方式来给每一行都添加标题行。
方法一:
1.从第二位员工开始,每隔一行上方插入一个空行。具体的方法可以参考之前的隔行插入空行的文章:
2.然后复制标题行的内容。
3.选中这个区域,使用快捷键Ctrl+G打开“定位”窗口。
4.然后点击“定位条件”按钮。
5.在“定位条件”里面选择“空值”选项,点击“确定”。
6.这时再按Ctrl+V进行复制,标题行就复制进去了。
方法二:
使用VBA代码来实现,代码如下:
Sub InsertTitle()
i = 3
Do While i < ActiveSheet.UsedRange.Rows.Count + 1
Rows(i & ":" & i).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
i = i + 2
Loop
Range("A1:F1").Select
Selection.Copy
Range("A1").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
运行以后也可以批量隔行插入标题行。
另外要注意这里的代码适用于目前的表格,并且整个工作表中其他区域都是没有内容的。如果表格形式有变的话,都需要根据实际情况修改代码。
方法三:
使用公式来返回需要的内容。例如这里在工作表另外一个空白单元格里面输入公式:
=IF(MOD(ROW(),2)=1,OFFSET(A$1,0,0),OFFSET(A$1,ROW()/2,0))
然后向右和向下进行复制,复制需要的行数和列数即可,返回的结果就会在每一行里面插入一个标题行。
要使用公式的话,也是需要按照实际表格适当进行调整的。
网站声明:如果转载,请联系本站管理员。否则一切后果自行承担。
加入交流群
请使用微信扫一扫!