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

Question

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

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