批量生成工资条和恢复成工资表

一、问题的提出

人事、财务经常会用到工资条，如果手工添加比较麻烦，而且容易出错，我们可以通过录制宏，或者插入VBA代码的方法来解决。有了VBA后，我们可以定义按钮，绑定VBA代码，实现一键生成工资条，或者恢复成工资表。

二、实现方法

1. 生成工资条

主要是利用VBA获取表数据的条数，然后用select选取第一行，通过for循环来批量添加表头。

Sub gongzitiao()
Dim i As Integer
Dim n As Integern = Cells(Rows.Count, 1).End(xlUp).Row - 2 '获取要添加表头的个数ActiveSheet.Rows("1:1").Select  '选中第一行For i = 1 To n '这里写上Selection.Copy '复制第一行ActiveCell.Offset(2, 0).EntireRow.Select '指针向下移动2行Selection.Insert shift:=xlDownNext iEnd Sub

2. 恢复成工作表

有时，生成了工资条后，又想返回到工资表，但是因为VBA操作的不可逆性，所以又想让工资条恢复成工资表。代码如下：

Sub gongzibiao()
Dim i As Integer
Dim n As Integern = Cells(Rows.Count, 1).End(xlUp).Row / 2 - 1
ActiveSheet.Rows("3:3").SelectFor i = 1 To n '这里写Selection.Delete shift:=xlDownActiveCell.Offset(1, 0).EntireRow.SelectNext iEnd Sub

由于删除一行后，下面的一行会自动补充上来，因此这时的offset偏移由原来的二行变成了一行。有了以上二种代码，可以轻松实现工资表与工资条的相互转化，十分的便利。

三、学后反思

操作前一定要备份工资表，因为VBA操作具有不可逆性。
其它类似的操作也可以先录制宏，再添加循环，以实现批量操作。
VBA目前在网上有很多学习教程，再加上chatGPT的加持，所以学习起来并不难。相信磨刀不误砍柴工，掌握了VBA，让你的办公速度可以飞起来。

批量生成工资条和恢复成工资表相关推荐

mysql 全局不重复_如何批量生成MySQL不重复手机号大表实例代码
前言在MySQL很多测试场景,需要人工生成一些测试数据来测试.本文提供一个构造MySQL大表存储过程,可以生成包含用户名,手机号码,出生日期等字段.也可以通过滤重来使得手机号码不重复,模拟现实场景. ...
mysql手机号码不重复吗_如何批量生成MySQL不重复手机号大表实例代码
前言在MySQL很多测试场景,需要人工生成一些测试数据来测试.本文提供一个构造MySQL大表存储过程,可以生成包含用户名,手机号码,出生日期等字段.也可以通过滤重来使得手机号码不重复,模拟现实场景. ...
mysql手机号码不重复_如何批量生成MySQL不重复手机号大表实例代码
前言在MySQL很多测试场景,需要人工生成一些测试数据来测试.本文提供一个构造MySQL大表存储过程,可以生成包含用户名,手机号码,出生日期等字段.也可以通过滤重来使得手机号码不重复,模拟现实场景. ...
图书条码mysql数据库_中琅条码软件如何连接MySQL批量生成128码
原标题:中琅条码软件如何连接MySQL批量生成128码中琅条码软件除了支持常见的TXT,CSV.Excel等文件类型数据库,还支持MySQL.SQLServer.Access等常用数据库.下面就以M ...
Excel工资表通过宏的录制形成工资条形式
内容:工资表通过宏的录制形成工资条形式,设置快捷键,添加按钮指定宏,并且改进宏. 一打开Excel,先点击左侧文件-选项-自定义功能区 ,从左侧的下来菜单中选择开发工具,把开发工具添加到右侧自定义 ...
Excel格式转换：Excel工资表如何转换成PDF格式
现如今每家企业单位都会保证员工工资的透明化.公开化,所以在发放工资前,都会给员工分发工资条.将工资当中每一笔钱都标记着清清楚楚,包括因为什么原因扣得工资也会很清楚地告知大家.工资表地制作通常都是使用E ...
将Excel明细表按指定模板样式批量生成新表，也可生成工作簿
通过E灵插件可以将明细表批量转换成指定格式的新表. 使用前需要做准备工作,工作簿中必须有一个明细表.一个模板表. 在模板表中需要做标示,标示方法是: 将明细表中的标题(关键字)复制到模板表中,且前后添 ...
wps工资表怎么用计算机,用WPS表格轻松制作出美观实用的工资条
用WPS表格轻松制作出美观实用的工资条分类:计算机等级 | 更新时间:2016-07-08| 来源:转载在任何企业之财务管理中,一定少不了工资计算和设计工资条.工资条头之美观及操作速度是设计的一个 ...
EXCEL 批量生成sheet表+生成超链接目录+某列按多条件去重罗列+提取单元格中的字母、数字
文章目录前言一.EXCEL 公式实现多个条件值匹配二.EXCEL 工作薄下SHEET表太多时你可以这样做 1.生成多个相同表头的SHEET表 1.1.批量生成SHEET表 1.2.批量更改多个S ...