填充

小鼠爱大米

如何将附件中的B列填充， 填充效果件F列
（需要VBA解决）

谢谢

darklesson

如果就是简单的处理，不一定非要用VBA代码的话

tanglf188

1. Sub test6()
   
2.     last = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
   
3.     arr = Sheet1.Range("B2:B" & last)
   
4.     For i = 2 To UBound(arr)
   
5.         If arr(i, 1) = "" Then arr(i, 1) = arr(i - 1, 1)
   
6.     Next
   
7.     Sheet1.Range("C2:C" & last) = arr
   
8. End Sub
   

复制代码