工资条打印设置
选中表格数据中的任意位置，然后点击菜单栏的‘数据’，再点击‘分类汇总’；接下来会弹出单元格，勾选‘每组数据分页’，点击确定；接下来数据就分开了；点击打印预览会只显示一个人的工资条；如果需要将汇总一行删除，选中任意一列，点击ctrl+G，然后选中‘空值’，点击确定；然后将鼠标放在选中的空值单元格，右击鼠标，点击删除；选中整行；点击确定即可。
Excel-VBA设计工资条打印格式
应用场景
设置工资条的打印格式
知识要点
1：在工作表末列添加辅助内容，以该区域判断是否需要插入行
2：Range.End(xlDown) 原因单元格对象向下第一个非空单元格
3：选择所有插入的第二行，黏贴标题行作为分割后的标题
4：选择所有插入的第一行，设置行高，作为分割的间隔行
5：恢复时整行删除插入行
Sub 生成工资条()
If ActiveSheet.ProtectContents Then MsgBox '工作表已保护，拒绝执行'
On Error Resume Next
Dim Activerng As Range, Rngg As Range, Rownum As Long, i As Long, Btrow
Star:
Btrow = Application.InputBox('请指定标题行数！', '确定工资条头', 1, , , , , 1) '让用户确认标题行数
If Btrow <= 0 Or Btrow > 10 Then MsgBox '只能1到10之间,请重新输入', 64, '友情提醒': GoTo Star '如果不在10行内重新指定
'将列号为最后一列、行数为标题行行数加1的单元格赋予变量
Set Activerng = Cells(Btrow 1, Columns.Count)
Application.StatusBar = '正在生成工资条，请稍后......' '在状态栏显示信息
Application.Calculation = xlManual '设置手动计算，加快速度
Application.ScreenUpdating = False '关闭屏幕更新,加快速度.
'创建辅助区，以该区域为基准判断是否需要插入行
Cells(1, Columns.Count).Resize(ActiveSheet.UsedRange.Rows.Count, 1) = 1
Do '开始循环
'插入行，行数为标题行 1
Activerng.Offset(1, 0).Rows('1:' & Btrow 1).EntireRow.Insert shift:=xlDown
'重置对象，将activerng变量指向原有对象向下第一个非空单元格
Set Activerng = Activerng.End(xlDown)
'记录数据区域的最大行行号（插入行后该数据会增加）
Rownum = Cells(Rows.Count, Columns.Count).End(xlUp).Row
Loop While Activerng.Row < Rownum
'合并所有用于存放标题的行
Set Rngg = Rows(Btrow 3 & ':' & 2 Btrow 2)
For i = 2 (Btrow 2) 1 To Rownum Step Btrow 2
Set Rngg = Union(Rngg, Rows(i & ':' & i Btrow - 1))
Next
Rows('1:' & Btrow).Copy Rngg '复制第一个标题到其他用于存放标题的空行中
Set Rngg = Rows(Btrow 2) '合并剩下的所有行（改行用于每个工资条的间隔行）
For i = 2 (Btrow 2) To Rownum Step Btrow 2
Set Rngg = Union(Rngg, Rows(i))
Next
Rngg.Borders.LineStyle = xlNone '将空行的边框去掉
Application.ScreenUpdating = True
'指定工资条间隔的高度
Btrow = Application.InputBox('请指定工资条之间空行的高度！')
If Btrow <= 0 Or Btrow > 409 Then MsgBox '行高必须在0 到409之间'
Rngg.RowHeight = Btrow '对间隔行设定高度
(1)、工资条打印怎么设置 excel打印工资条的几种方法
制作工资条在财务工作和HR工作中很常用，方法有很多种，今天我们介绍几种常用方法；1.升序法第一步：复制工资表表头，在工资表下方进行粘贴，有7个人员，粘贴6行；第二步：在I2：I7填充1到7，再将I2：I7的1到7粘贴到I8：I14，对I列进行升序排序，删除I列；2.插入行法1).在I3输入1，在J4输入2，选中I3：J4区域，向下填充，Ctrl+G，调出定位对话框，【定位条件】，【空值】，鼠标放在...查看更多
(2)、摄影师工资待遇怎么样 摄影师任职条件有哪些
摄影师职业介绍摄影师是指从事电影、电视摄影、摄像工作的人员。摄影师具体做什么①依据创作剧本，完成影片摄影艺术创作的摄影阐述工作；②参与讨论分镜头剧本，选择外景场地，商议美术设计，为主要演员试镜头；③根据导演的要求，运用摄影艺术手段完成影视片的电影造型。摄影师岗位薪资薪资:￥3000-12000/月目前我国开设摄影专业的学校主要有：北京电影学院、中央美术学院艺术设计系、清华大学美术学院、四川美术学院...查看更多
(3)、民航飞行员工资待遇好不好 民航飞行员招考条件有哪些
飞行员月薪多少1、据了解目前国航、南航、东航等三大航的最资深的教员机长，目前的月薪在6万左右。随着国内民航业的蓬勃发展。一些小航空公司出于发展的需求，在机制灵活的背景下，反而对机长的薪酬会支付的更多。如有的小航空公司机长的年薪可能会有70-80万元，有些大航空公司机长的年薪则在40-50万元左右。一名教员机长的年薪约在70-80万元，而一些货航机长的年薪可能会在百万以上。2、飞行员是很多人巨羡慕的...查看更多
(4)、摄像师工资一般多少 摄像师任职条件是什么
摄像师职业介绍摄影师是指从事电影、电视摄影、摄像工作的人员。摄像师具体做什么①依据创作剧本，完成影片摄影艺术创作的摄影阐述工作；②参与讨论分镜头剧本，选择外景场地，商议美术设计，为主要演员试镜头；③根据导演的要求，运用摄影艺术手段完成影视片的电影造型。摄像师岗位薪资薪资:￥3000-12000/月目前我国开设摄影专业的学校主要有：北京电影学院、中央美术学院艺术设计系、清华大学美术学院、四川美术学院...查看更多
(5)、水利水电工程工资待遇怎么样 水利水电工程师有哪些任职条件
水利水电工程师职业介绍水利·水电工程师是指总体规划设计水库、水电站、灌溉工程，并主持施工的工程技术人员。水利水电工程师具体做什么①研究江河湖海的水文、水利情况及水利建筑特性；②研究规划水能利用、农田水利运用；③设计水库、水电站、水利枢纽、灌排系统等水利、水电建筑及主持施工；④制定水利设施技术指标、技术规程、操作方法；⑤进行水利、水电设施的运行调度；⑥分析处理运行技术问题，指导操作人员作业。水利水电...查看更多
(6)、茶艺师工资待遇怎么样？茶艺师任职条件是什么？
茶艺师职业介绍茶艺师是指在茶艺馆、茶室、宾馆等场所专职从事茶饮艺术服务的人员。茶艺师具体做什么①鉴别茶叶品质；②根据茶叶的品质，选择相适的水质、水量、水温和冲泡器具，进行茶水艺术冲泡；③选配茶点；④向顾客介绍名茶、名泉及饮茶知识、茶叶保管方法等茶文化知识；⑤按不同茶艺要求，选择或配置相应的音乐、服装、插花、熏香等环境。茶艺师岗位薪资薪资:￥3000-8000/月茶艺师是茶文化的传播者、是高品位文化...查看更多
(7)、2020年财政部长两会 你的工资条要变了
快打开你的工资条留张影吧，因为它很可能就要变了！ 变高点 个税起征点“该提高就提高”2011年，中国将个人所得税起征点自每月2000元人民币上调至3500元。自此6年便“雷打不动”的体现在你的工资条上。数字不变，但房价、物价不断上涨，全国居民人均可支配收入每年上涨8%。“提高个人所得税起征点”的声音不断出现。这一次，记者把话喊到了两会财政部新闻发布会上。财政部长肖捷说：“在...查看更多
(8)、2020年河南大学生村官报考条件,河南村官政策及工资待遇标准
【2017年河南省大学生村官报名条件,河南省大学生村官待遇标准】 大学生村官是指到农村(含社区)担任村党支部书记、村委会主任助理或其他村“两委”职务的具有大专以上学历的应届或往届大学毕业生。工作多为社区(村)事务。2002年河南省鹤壁市招聘205名大学生“村官”，拉开了河南省大学生“村官”工程序幕。2013年河南省大学生村官招募工作即将启动。这对不少大学生而言，是一份可遇不可求的高起点职业。...查看更多
(9)、2020年贵州大学生村官报考条件,贵州村官政策及工资待遇标准
【2017年贵州省大学生村官报名条件,贵州省大学生村官待遇标准】 什么是大学生村官?大学生村官是指到农村(含社区)担任村党支部书记、村委会主任助理或其他村“两委”职务的具有大专及以上学历的应届或往届大学毕业。工作多为社区(村)事务。财政厅按每人每年1.8万元标准对省选聘的大学生村官下拨财政补助资金，并专门下发通知，对资金使用提出明确要求。大学生村官的报名条件是什么?报名条件各地不同，...查看更多
(10)、2020年河北大学生村官报考条件,河北村官政策及工资待遇标准
【2017年河北省大学生村官报名条件,河北省大学生村官待遇标准】 (1)思想政治素质好，组织纪律观念强，服从分配，踏实肯干，志愿到农村基层工作;(2)有一定的组织协调能力和较强的语言表达能力;(3)学习态度端正，学业成绩良好;(4)身体健康，符合规定的体检要求;(5)需担任学生干部1年以上;(6)必须是参加全国普通高等院校本科、研究生统一招生考试或按规定免于考试录取的。对...查看更多
Columns(Columns.Count).Clear
Application.Calculation = xlAutomatic
Application.StatusBar = '' '还原状态栏
End Sub
