实现Excel行插入行删除特殊处理，单元格合并及动态条件单元格公式自动计算功能的VBA 宏示例

        最近的项目中，用到了很多Excel的VBA宏功能，用户的新需求也有很多需要用VBA宏来实现。为满足业务需求，

自己搜索网上的相关资料，尝试不同的解决方法，最终解决了用户的需求，在此记录下来，做一个总结，也希望能给

别的网友有所帮助。

        首先用户的第一个需求，是Excel WorkSheet中原有的行不可删除，只能修改某些栏位。用户可以新插入行，而新插入

的行可以删除。如下图所示：

         2001，2002，2003和2004四行数据 不允许删除，而Inserted这行数据是后来插入的，可以删除。

        Excel可以整个sheet锁定，却没有按行锁定，而且即使能按行锁定，由于存在插入删除，行序会动态变化，

锁定位置也无法固定。所以必须用锁定以外的方法来解决。

        首先想到的就是监听Worksheet的插入和删除事件。如果插入删除都有响应事件，那在事件中做拦截处理就

很容易实现功能了。可惜的是，Excel虽然功能无比强大，但是worksheet的响应事件却并不丰富，仅有一个change

事件，能响应所有的worksheet中改变内容的操作，其他事件似乎都不太有用：

 

         还好，在网上搜到了在这个事件中判断整行插入和删除的方法：

         '选择了一整行
        If Target.Address Like "$#*:$#*" Then

        但是这只能判断出是整行选择，至于是插入还是删除，就得自己去区别处理了。

         插入比较简单，Target.row所指向的是一个空行，而且已经存在于Excel中了，所以直接判断第一个单元格为空就好：