ExcelVBA高效快速生成家谱世系图

制作这个VBA之前，我参考过“聚宝瓶”家谱制作。针对其缺点，彻底重写了VBA，改进如下：1.生成世系图的过程改为由下至上，从而达到了简化逻辑的效果。2.紧密位图。若无必要，家族成员间不插入空列。3.尽可能使用数组操作，减少直操作Excel表，加快速度。4.代码中包含删除空白列的功能（以数组操作实现）。经实际测试，在我的机器上，家族成员为1500时，“聚宝瓶”生成世系全图约需30分钟，而下面这个改进后的VBA，家族成员为6500人时，生成世系全图只需1分钟。注意：1.为简化逻辑，子号与行号相同，且数据已经按世次、家族成员编码排序。2.家族成员编码包含每个人从始祖到自己的排行信息，请用公式生或VBA生成(表中前3行含公式)。3.测试数据与族