VBA自动填充有空白单元格的上一行单元格内容

1. Sub cdsr()
2. On Error Resume Next
3.     Dim lastrow&, lastcol&
4.     lastrow = Sheet1.UsedRange.Rows.Count
5.     lastcol = Sheet1.UsedRange.Columns.Count
6.     For i = 1 To lastcol
7.         Range(Cells(2, i), Cells(lastrow, i)).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
8.     Next
9. End Sub