选项中启用迭代计算：
选择所有需要编号的区域，输入公式=COUNTA(A$2:A2)，按ctrl+enter：
因为需要合并单元格，而且要合并的行数不固定，所以这个只有用VBA才能分分钟定。
一个公式搞定，先从上到下选中填充范围，按F2，然后输入公式，然后按ctrl和enter组合键=max($d$1:d2)+1
将F列相同项,对应的A列合并为1个用VBA
所以说...图呢
