Excel打印工资条的方法一1、在Excel中打开需要制作工资条的工资表文件． 2、执行“工具”->“宏”命令，选择“Visuai Basic 编辑器”打开VBA编辑器窗口，在VBAProject的工程资源管理器中双击Sheets1,会出现代码编辑窗口，在其中输入如下代码：
Sub gongzibiao()
Application.ScreenUpdating = False '为避免破坏表一,将表一内容完整复制到表二 Sheets(1).[A1].CurrentRegion.Copy Sheets(2).[A1] '定义循环变量的最大值不小于表二中职工数的二倍 a = (Application.WorksheetFunction.CountA(Sheets(2).[a1:a2600]) * 2) '如果第一列(职工的工资电脑序号)上下单元格的值不相等,则在它们之间插入一个空白行 For I = 3 To a If Sheets(2).Cells(I, 1) <> Sheets(2).Cells(i+ 1, 1) And (Sheets(2).Cells(I, 1) <> "") Then Sheets(2).Rows(i+ 1).Insert End If '如果第一列中的单元格为空.则将表中[A2:M2](工资清单表头项目)复制到此行 If Sheets(2).Cells(I, 1) = "" Then Sheets(2).[A2:M2].Copy Sheets(2).Cells(I, 1) End If Next Application.ScreenUpdating = True End Sub
3、检查源代码编辑无误后，在VBA窗口中单击“运行”->“运行宏”命令，将弹出“宏”对话框，你只要单击“运行”按钮即可。 4、等待宏运行完毕，再回到Excel,单击工资表下方上方的“Sheet2”,于是在每两个相邻职工之间就插入了工资清单项目。 Excel打印工资条的方法二不用公式，让Excel按人头打印出工资条。 使用Excel按人头打出工资条，有用Word邮件合并功能的，也有用VBA功能的，也有采用编写公式直接产生的。可参看天极软件办公栏目的文章（Word、Excel配合按人头打印工资条、仅需一个公式让Excel按人头打出工资条）但我觉得，对于普通公司员工来说，这些方法都显得专业性太强。其实，变通一下，也可以不用公式，直接让Excel按人头打出工资条的，方法简单，适合Excel新手使用。 假定公司有员工100人，工资数据在A2:R101区域。在工作表的第一行A1:R1区域为工资项目。我们需要的工资条是第一行为工资项目，第二行为各员工的工资，第三行为空行，以便我们打印后分割。 1、先选中A列，点击右键，在弹出的快捷菜单中点击“插入”命令，插入一个辅助列。在A2、A3、A4单元格分别输入数字“2”、“5”、“8”。选中这三个单元格，拖动填充句柄向下至A101单元格，为这些单元格添加序号。 2、复制A1:R1单元格，然后在A102单元格单击，并粘贴。选中A102:R102单元格，将鼠标定位于填充句柄，按下右键，向下拖动填充句柄至R200单元格。松开右键，在弹出的菜单中选择“复制单元格”命令。这样就复制了99个工资项目，加上第一行的那个，正好100个。 3、在A1单元格中输入数字“1”，在A102、A103、A104单元格分别输入数字“4”、“7”、“10”。然后选中A102:A104单元格向下拖动填充句柄，至A200单元格，为所有的工资项目添加序号。 4、在A201、A202、A203分别输入数字“3”、“6”、“9”。然后选中这三个单元格，向下拖动填充句柄至A300单元格。 好了，现在您肯定明白了。我们在工资项目、工资数据、空行分别添加了相互间隔的序号。现在，我们只要根据A列序号，升序进行排列，那么就可以得到所需要的工资条了。 最后要做的，就是选中A列数据，点击右键，在弹出的快捷菜单中选择“隐藏”命令，将该辅助列隐藏起来。 |