有一列隔几行有个值，现在想把空值按上面已有的值填充，有什么快捷的方法？

sblisb

sayhi95 发表于 2016-2-29 20:37
那你一定是鼠标点去编辑栏再输入的=号...定位后不要动鼠标，直接按=号加上箭头

噢，原来出错在里，晕

bajifeng

1. Sub 自动填充()
   
2. i = 2
   
3. Do
   
4.     If Cells(i, 1) = "" Then Cells(i, 1) = Cells(i - 1, 1)
   
5.     i = i + 1
   
6. Loop While i < [a65536].End(3).Row
   
7. End Sub
   

复制代码

bajifeng

>>>>>>>>>>>>>>>>>>>>>>>>>>>

bajifeng

下次建议传个附件，方便大家解决问题。