插入空行_Excel VBA 7.71按照类别插入空行，插入多个合计项就这么简单

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

今天我们继续来玩转下工作表的行列，之前我们插入行列的时候都是随机插入的，并没有说一定要达到什么样的目的，在日常的工作中使用的比较的少，那么今天我们就来接触一个日常工作表中比较常用的功能，也是和插入行列有关的，今天我们要按照类别来插入空行，相同类别才会插入一个空行，然后就可以添加合计、汇总等相应的字段了。

场景说明

这就是我们今天大致要形成的一个效果，按照班级列来进行区分，当前后两个班级不同的时候，我们就在中间插入一个空行，并且设置一个汇总的字段

代码区

其实今天的代码并不算是很难，如果大家对于前面我们学习过的插入空行的方式已经很熟徐的话，本节其实并没有太大的难度，我们来看看代吗

Sub kongh()Dim rng As Range, Frng As Range, a As Range, trng As RangeSet rng = Application.InputBox("请选择参照行