外链论坛

 找回密码
 立即注册
搜索
查看: 8|回复: 1

两个最快捷的工资条制作办法,10秒钟2000人【Excel教程】

[复制链接]

2980

主题

312

回帖

9909万

积分

论坛元老

Rank: 8Rank: 8

积分
99099264
发表于 2024-10-2 15:33:24 | 显示全部楼层 |阅读模式
回复[目录]学习113篇Excel教程

全套Excel视频教程,微X扫码观看

瓶子在后台看到非常多小伙伴在问工资条做,那今天瓶子就抛砖引玉,给大众分享两种方式,倘若你还有更简单的办法,欢迎留言分享!

第1种:添加辅助列

如下图所示的工资表,瓶子要给每一个人的工资条上面加一个表头,表头上面还要留一行空白用于裁剪。

咱们先在H2、H3单元格手动输入1、2。

而后选中H2-H3单元格区域,将鼠标安置在H3单元格右下角,双击向下填充。能够看到如下结果。

按ctrl+c复制区域,而后点击H12单元格,按ctrl+V粘贴,得到如下的结果。

选中数据区域A1-H21,点击“数据”选项卡下的“排序”按钮。

点击“重点关键字”后方的下拉按钮,在下拉菜单中选取“(列H)”,点击确定。

能够看到如下所示的结果。

选中A1-G1单元格区域,按ctrl+C复制。

而后选中A2-H20单元格区域。

按定位快捷键ctrl+G,在弹出的对话框中点击“定位要求”,而后在如下所示的对话框中勾选“空值”。点击确定。

此时能够看到所有的空行都被选中了。

按ctrl+V复制,能够看到表头复制到了每一个空行。

而后选中H列,点击“起始”选项卡下的“所有清除”。

在H2和I3单元格输入1。

选中H2-I3单元格区域,而后鼠标放在I3单元格右下角,双击填充。

能够看到如下所示的结果。

选中I列数据,按ctrl+G快捷键,选取“常量”。点击确定。

能够看到数据被选中了。

单击右键,选取插进”。

在弹出的对话框中选取“整行”。

此时能够看到每一个表头前面都有了空行,可用于打印出来后裁剪。

若想给表头和名字加上边框,选中全部表格区域,点击“起始”选项卡下的边框下拉按钮,在下拉菜单中选取“所有框线”。

能够看到所有单元格都加了框线。

若想要留白行框线,能够根据前面的定位空值的方式,定位所有空行后,按ctrl+1快捷键,弹出设置单元格格式对话框。在对话框中依次点击左、中、右三条框线,可去除空白行的三条框线,点击确定。

最后效果如下所示。

上面的办法比较适用于人数较少的机构,假如你所在的机构有两三千人,那就运用下面瓶子给你的万能模板吧!

第二种:VBA

咱们将分别利用两段代码来实现每行员工工资数据前插进裁剪行(空行)、插进表头两步操作。

按ALT+F11快捷键,弹出如下图所示的VBA调试窗口。

点击“插进”-“模板”后,页面如下所示。

在空白处输入代码:(重视代码中所有标点符号都是英文标点符号

Sub 选定范围隔行插进一行()

    Dim i As Integer

For i = 11 To 3 Step -1

    Rows(i & ":" & i).Insert

Next

End Sub

点击“运行”按钮。

此时能够看到表格完成为了插进空行操作。

代码中有非常多大众不认识的单词,但其实大众只需要明白下面两排的含义就可

For i = 11 To 3 Step -1

Rows(i & ":" & i).Insert

上面的代码含义是:从第11行起始向上插进1行空行(Rows后面的第1个i和第2个i相差0,若想插进两行空行,可将第二个改为i+1),而后每隔1行(step -1)插进1行空行,到第3行(To 3)上方为止。

下面咱们将原先的代码删除,再输入进另一组代码:(重视代码中所有标点符号都是英文标点符号

Sub 隔2行插进表头()

    For i = 20 To 4 Step -2

    Range("A1:G1").Copy

    Cells(I,1).Insert

Next

End Sub

点击运行按钮后结果如下。能够看到

这组代码和上面的含义类似,咱们只需要理解中间两行就能够了。

For i = 20 To 4 Step -2

Range("A1:G1").Copy

Cell(i,1).Insert

上面的代码含义是:从第20行的A20(cell(i,1),i是行数,1是列数,i等于20的时候,便是第20行第1列即A20单元格)起始向上插进(Insert)1个从指定位置(A1:G1)拷贝(Copy)的表头,而后每隔2行(step -2)插进1个表头,始终插进到第4行(To 4)为止。倘若是双行表头,只需要将A1:G1改为对应的表头区域就可

想要全面系统学习Excel,不妨关注部落窝教育1星期Excel直通车》视频课《Excel极速贯通班》直播课。

1星期Excel直通车》视频课

包括Excel技巧、函数公式、

数据透视表、图表。

一次购买,永久学习。

最实用接地气的Excel视频课

1星期Excel直通车》

风趣易懂,快速有效带您7天学会Excel

38 节视频大课

(已更新完毕,可永久学习)

理论+实操一应俱全

主讲老师: 滴答

Excel技术大神,资深培训师;

课程粉丝100万+;

研发有《Excel小白脱白系列课》

《Excel极速贯通班》。

原价299元

限时特价99元,随时涨价

少喝两杯咖啡,少吃两袋零食

就能习得受用一辈子的Excel职场技能!

  长按下面二维码立即购买学习

购课后,加微X:603830039领取练习课件

让工作提速百倍的「Excel极速贯通班」

↓ 点击阅读原文,可直接购买。

回复

使用道具 举报

2993

主题

2万

回帖

9913万

积分

论坛元老

Rank: 8Rank: 8

积分
99139304
发表于 2024-10-13 00:09:31 | 显示全部楼层
你的话语如春风拂面,让我心生暖意。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

站点统计|Archiver|手机版|小黑屋|外链论坛 ( 非经营性网站 )|网站地图

GMT+8, 2024-11-5 20:38 , Processed in 0.089869 second(s), 19 queries .

Powered by Discuz! X3.4

Copyright © 2001-2023, Tencent Cloud.