第一步,用VBA先隔行填1-100:for i = 1 to 100 cells(i*2-1,1)=inext第二步:选中A1至A200单元格——查找和选择——定位条件——空值——确定——按键盘的向上方向键一下——ctrl+回车然后再选择性粘贴一下去掉公式就完成咯 看了楼上两位的方法,也都可以,但是要记得最后选择性粘贴一下,否则带着公式有可能在以后的操作中出现错误