程序如果单元格中有信息，不做处理如果单元格中没有信息，填充上一个单元格的信息，如何解决？(关键词-for)

Question

如何用VBA写这个for和dowhile循环写这个程序：
程序如果单元格中有信息，不做处理
如果单元格中没有信息，填充上一个单元格的信息：相当于单元格的下拉复制

Answer 1

题主要的代码如下

Sub copycell()   
  For i = 2 To 10
    If Range("B" & i).Value = "" Then
      Range("B" & i).Value = Range("B" & (i - 1)).Value
      
    End If
  Next
 
End Sub