工资表怎么生成工资条?
发布网友
发布时间：2022-04-23 20:09
我来回答
共4个回答
热心网友
时间：2023-10-08 18:02
用VLOOKUP函数函数套用COLUMN函数即可，公式说明：
VLOOKUP（查找值,查找值的区域,区域中包含返回值的列号,精确匹配或近似匹配）
COLUMN()表示公式所在的列。
1、举例下图为工资表，表头为红框区域，工资条格式就是需要在每一个名字上面插入同样的表头：
2、在B8框中输入红框里面的函数内容，即=VLOOKUP($A8,$A$2:$G$5,COLUMN(B1),0)，其中，$A8代表绝对引用序列号，$A$2:$G$5代表绝对引用需要查找的数据区域，COLUMN(B1)代表每次查找的序列：
3、上图输入公式后按回车键就可以得出结果，然后把鼠标放在下图小红框处，出现十字架时，向右边拉伸，保证蓝色框的公式逻辑一致，松开鼠标就可以得出全部结果：
4、鼠标选中下图中大红框里面的区域，然后将鼠标放置小红框处，出现十字架时，向下拉伸：
5、此时可以看到每一个的名字上面都自动插入了表头：
热心网友
时间：2023-10-08 18:02
1、新建一Excel文件，在sheet1中存放工资表的原始数据，假设有N列。第一行是工资项目，从第二行开始是每个人的工资。
2、在sheet2中来设置工资条。根据实际情况，工资条由三行构成，一行对应工资项目，一行对应一个人的工资数据，然后是一个空行用来方便切割。这样三行构成一个工资条。
3、在sheet2的A1单元格中输入公式“=IF(MOD(ROW(),3)=0,"",IF(MOD(ROW(),3)=1,Sheet1!A$1,INDEX(Sheet1!$A:$N,INT((ROW()+4)/3),COLUMN())))”。确认后选择A1单元格，把鼠标放在A1单元格的右下角，鼠标变成“+”时，向右拖动鼠标自动填充至N列，这样工资条中的第一行就出来了。选定A1：N1，把鼠标放在N1单元格的右下角，鼠标再次变成“+”时，向下拖动鼠标自动填充到数据的最后一行，工资条就全部制作完成了。
热心网友
时间：2023-10-08 18:03
方法如下：
用Excel表格制作好本月份的工资记录表；用word文档设置好工资条的表头。
打开工资条文档，在菜单栏“邮件”选项卡中，选择“选择收件人”-点击“使用现有列表”。
此时会弹出一个“选取数据源”的窗口，然后在存在本月工资记录表的路径中找到“8月工资记录表”，点击“打开”按钮，弹出一个“选择表格”的窗口，选择记录表存放的sheet，然后按“确定”按钮。
返回菜单栏“邮件”选项卡中，点击“插入合并域”，此时会显示Excel表格的字段，在word文档对应的位置插入相对应的字段。
返回菜单栏“邮件”选项卡中，点击“完成并合并”-“编辑单个文档”，此时，弹出合并到新文档的窗口，在“合并记录”目录下，勾选“全部”，点击“确定”按钮。
热心网友
时间：2023-10-08 18:03
在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.CutCopyMode = False Selection.Borders(xlDiagonalDown).LineStyle = xlNone '定义表格边框线、内线样式 Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlDouble .Weight = xlThick .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeTop) .LineStyle = xlDouble .Weight = xlThick .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlDouble .Weight = xlThick .ColorIndex = xlAutomatic End With With Selection.Borders(xlEdgeRight) .LineStyle = xlDouble .Weight = xlThick .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideVertical) .LineStyle = xlDash .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlDash .Weight = xlThin .ColorIndex = xlAutomatic End With Selection.Copy Range(Cells(5, 1), Cells(6, col)).Select Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False '接上行删除上行尾的连字符 _，复制表格线样式 num3 = 8 Do While num3 ＜= num '循环复制表格线样式 Range(Cells(num3, 1), Cells(num3 + 1, col)) .Select Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False num3 = num3 + 3 Loop Rows("1:1").Select '删除多余的一行 Selection.Delete End Sub 以后每月要打印工资表与工资条时，只需将“工资表与工资条”文件打开，修改好工作表“sheet1”中的当月的工资总表数据后将其复制为工作表“sheet2”，并使“sheet2”成为当前工作表，执行宏“生成工资条”即可。
