如何在表头加序号（你加班手动插入的时候）

前景提要(文末提供源码下载）

在之前我们分享过间隔插入行的操作，在那之后就有小伙伴希望我能够实现批量插入固定表头的功能，在日常的财务或者是HR的工作中，经常会需要制作工资条，工资条都有固定的表头，但是插入表头就比较的麻烦，一个一个的复制粘贴来实现插入吗？一个公司最少都有100号人，一个个的手动插入，那个工作量肯定很大了，那么我们今天就来实现下这个功能。

场景说明

批量插入表头应该施工资条运用的比较的多，但是某些个别场景也会运用，所以今天我们假设了两个场景。

这是假设的工资条的操作场景

这是个别小伙伴们需要的按照部门插入表头，计算部分经费的场景。都可以在今天用相同的代码来实现。

代码区

来吧，开工

Sub TEST() Dim rng As Range, a As Range, frng As Range, Urng As Range, trng As Range Set trng = Application.InputBox("请选择表头区域", "区域的选择", , , , , , 8) CountR = trng.Rows.Count FirstC = trng.Column num = trng.Rows.Count Set rng = Application.InputBox("请选择类名所在列", "区域的选择", , , , , , 8) FirstR = rng.Row Set frng = rng(1) k = 0 For 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 If Next a End Sub

其实代码整体看来还是非常的简短的，来验证下效果。

上面的动图已经完美的呈现出了效果，大家是否满意呢？

代码解析

来看看今天的代码解析

今天的代码就非常的简单了。 其实关键的核心点还是要获取插入的行列的位置，这和我们之前间隔插入行列的操作是一样的要求

大家可以回去看看历史的文章，理解的会更加的深刻一些，而今天我们对代码作出了一些调整。

在之前我们学习插入行列的时候，利用了具体的单元格的行列的写法，看起来比较的麻烦

Excel VBA7.70间隔插入空行，VBA快又准！职场生存效率高于一切

这是我们之前的代码，看起来很繁琐，我当初这样写的原因，无非就是希望让大家能够更清楚操作的原理，能够在脑海中形成一个单元格不断移动的方式的逻辑概念和方法

我的初衷还是希望分享一些方法给大家，有难而易，后面大家再碰到自己的工作场景的时候，才可以写出自己需要的代码，纯粹是分享代码的话，并不是我的初衷

当然纯粹的代码分享 简单的讲解，我也在努力的通过早上7：30的早间档来分享，主要分享一些常用的代码，也仅仅是做一些简单的分析而已，适合一些时间比较紧迫的小伙伴们能够尽量拿来就用，也是提升效率的好方法。

而现在大家经过之前的学习已经能够有这样的逻辑了，所以这里我们就直接使用简单的的方法了。不再去构造一些更加复杂的方法了。

trng.Copy frng.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

插入表头的方式也非常的简单，我们只需要复制表头，然后执行插入列的操作就可以实现了。 非常的简单

以上的方法基本上可以满足大家的日常工作需求了，如果有其他的需求，大家也可以根据自己的需求来做适当的改动。

================================

本节课的案例源码已经上传，需要的小伙伴后台私信“7-72.2”，希望大家多支持~~，多多关注 ~ ~

好了，明晚19:00,准时再见!