Excel VBA 7.72工资表批量插入表头，财务/HR必备做表利器
工资表批量插入表头，财务/HR必备做表利器
点击上方“Excel和VBA”，选择“置顶公众号”
致力于原创分享Excel的相关知识，源码，源文件打包提供
一起学习，一起进步~~
在之前我们分享过间隔插入行的操作，在那之后就有小伙伴希望我能够实现批量插入固定表头的功能，在日常的财务或者是HR的工作中，经常会需要制作工资条，工资条都有固定的表头，但是插入表头就比较的麻烦，一个一个的复制粘贴来实现插入吗？一个公司最少都有100号人，一个个的手动插入，那个工作量肯定很大了，那么我们今天就来实现下这个功能。
场景说明
批量插入表头应该施工资料运用的比较的多，但是某些个别场景也会运用，所以今天我们假设了两个场景。
这是假设的工资条的操作场景
这是个别小伙伴们需要的按照部分插入表头，计算部分经费的场景。都可以在今天用相同的代码来实现。
代码区
Sub TEST()Dim rng As Range, a As Range, frng As Range, Urng As Range, trng As RangeSet trng = Application.InputBox("请选择表头区域", "区域的选择", , , , , , 8)CountR = trng.Rows.CountFirstC = trng.Columnnum = trng.Rows.CountSet rng = Application.InputBox("请选择类名所在列", "区域的选择", , , , , , 8)FirstR = rng.RowSet frng = rng(1)k = 0For Each a In rng.Offset(1, 0) If a <> frng And a <> "" Then Set frng = a frng.EntireRow.Insert trng.Copy frng.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove End IfNext aEnd Sub其实代码整体看来还是非常的简短的，来验证下效果。
上面的动图已经完美的呈现出了效果，大家是否满意呢？
代码解析
来看看今天的代码解析
今天的代码就非常的简单了。其实关键的核心点还是要获取插入的行列的位置，这和我们之前间隔插入行列的操作是一样的要求
大家可以回去看看历史的文章，理解的会更加的深刻一些，而今天我们对代码作出了一些调整。
在之前我们学习插入行列的时候，利用了具体的单元格的行列的写法，看起来比较的麻烦
这是我们之前的代码，看起来很繁琐，我当初这样写的原因，无非就是希望让大家能够更清楚操作的原理，能够在脑海中形成一个单元格不断移动的方式的逻辑概念和方法
我的初衷还是希望分享一些方法给大家，有难而易，后面大家再碰到自己的工作场景的时候，才可以写出自己需要的代码，纯粹是分享代码的话，并不是我的初衷
当然纯粹的代码分享+简单的讲解，我也在努力的通过早上7：30的早间档来分享，主要分享一些常用的代码，也仅仅是做一些简单的分析而已，适合一些时间比较紧迫的小伙伴们能够尽量拿来就用，也是提升效率的好方法。
而现在大家经过之前的学习已经能够有这样的逻辑了，所以这里我们就直接使用简单的的方法了。不再去构造一些更加复杂的方法了。
trng.Copyfrng.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove插入表头的方式也非常的简单，我们只需要复制表头，然后执行插入列的操作就可以实现了。非常的简单
以上的方法基本上可以满足大家的日常工作需求了，如果有其他的需求，大家也可以根据自己的需求来做适当的改动。
==========================
本节课的案例源码已经上传，需要的小伙伴后台私信“7-72-I2”，希望大家多支持~~，多多关注 ~ ~
好了，明晚21:00,准时再见!
因为公众号没有留言功能（开的比较晚），所以建立一个线下微信群，主要为大家提供一个交流的平台，同时大家也可以提一些对公众号的意见和看法，大家一起学习，一起进步。