excel怎么自动添加行数

VBA

如图，在D1输入公式：=IF(ROW(A1)MAX(A:A),,ROW(A1))；

在E1输入公式：=IF(ISERROR(VLOOKUP(D1,A:B,2,0)),,VLOOKUP(D1,A:B,2,0))；

选中D1:E1，鼠标移到E1右下角填充柄（黑色小方块处）；

按住鼠标向下拖动，则拖动处全有了公式，并显示出结果。

追答 : 这个是用VBA实现的，你只需要把代码拷贝到其他文档并作适当修改就可以用了