如何将Excel工作表转换为工资条
发布网友
发布时间：2022-04-23 20:09
共3个回答
热心网友
时间：2023-09-10 13:47
在Excel中新建一个文件，将其命名为“工资表与工资条”，在工作表“sheet1”中输入并编辑好本单位职工工资总表（如表1所示）后，点击“工具”菜单→“宏”→“宏…”→输入宏名“生成工资条”→创建，输入如下的宏的各行文本，输入完成后保存该宏。将工作表“sheet1”复制为另一个工作表“sheet2”中，使“sheet2”成为当前工作表，执行刚才创建的宏，即可很快将表1所示的工资表转换为表2所示的工资条。
宏的内容如下：
Sub
生成工资条()
Cells.Select
'选择整个表去掉表格线
Range("F1").Activate
Selection.Borders(xlDiagonalDown).Line
Style
=
xlNone
Selection.Borders(xlDiagonalUp).LineStyle
=
xlNone
Selection.Borders(xlEdgeLeft).LineStyle
=
xlNone
Selection.Borders(xlEdgeTop).LineStyle
=
xlNone
Selection.Borders(xlEdgeBottom).LineStyle
=
xlNone
Selection.Borders(xlEdgeRight).LineStyle
=
xlNone
Selection.Borders(xlInsideVertical).LineStyle
=
xlNone
Selection.Borders(xlInsideHorizontal).LineStyle
=
xlNone
Rows("2:2").Select
'选择第2行
Selection.Insert
Shift:=xlDown
'在第2行前插入一行，保持第2行
为选中状态
num=150
'总人数×3，如工资表中有100人则
为100×3即num=300
col=14
'工资表的栏数，如工资表有17栏则
'col=17
num1
=
4
Do
While
num1
<=
num
'循环插入空行
Range(Cells(num1,
1),
Cells(num1,
col)).Select
'选中第num1行的第1列到第col列
Selection.Insert
Shift:=xlDown
Selection.Insert
Shift:=xlDown
num1
=
num1
+
3
Loop
Range(Cells(1,
1),
Cells(1,
col)).Select
Application.CutCopyMode
=
False
'剪切复制模式无效
Selection.Copy
'复制选择区域
Range("A2").Select
'选择A2单元格
ActiveSheet.Paste
'从A2单元格起粘贴内容
num2
=
5
Do
While
num2
<=
num
'循环插入标题行
Range(Cells(1,
1),
Cells(1,
col)).Select
Application.CutCopyMode
=
False
Selection.Copy
Cells(num2,
1).Select
ActiveSheet.Paste
num2
=
num2
+
3
Loop
Range(Cells(2,
1),
Cells(3,
col)).Select
Application.Cut
热心网友
时间：2023-09-10 13:47
编号 姓名 工资 奖金 实发工资
A0711 张三 30 10 40
A0795 李四 50 20 70
A0733 王五 70 30 100
B1234 赵六 90 40 130
A2345 张大 80 50 130
B1123 田七 60 50 110
在另一张工作表的A1单元格中输入:
IF(MOD(ROW(),3),OFFSET(工资表!$A$1,(MOD(ROW()-1,3)>0)*ROUND(ROW()/3,),COLUMN(A1)-1),"")
将此公式向右填充到E列，然后向表填充，得到下面的结果：
编号 姓名 工资 奖金 实发工资
A0711 张三 30 10 40
编号 姓名 工资 奖金 实发工资
A0795 李四 50 20 70
编号 姓名 工资 奖金 实发工资
A0733 王五 70 30 100
编号 姓名 工资 奖金 实发工资
B1234 赵六 90 40 130
编号 姓名 工资 奖金 实发工资
A2345 张大 80 50 130
编号 姓名 工资 奖金 实发工资
B1123 田七 60 50 110
热心网友
时间：2023-09-10 13:48
你按照工资条输入数据，调整好“页面设置”就可以做工资条了。
最好把固定项设置为标题行，这样只要只输姓名、工资等项就可以了，省事、省力。
