向下填充（间断性）

Sub 向下填充()Set ws = ActiveSheetlastRow = ws.Cells(ws.Rows.Count, "C").End(xlUp).RowcurrentValue = ws.Range("C2").ValueFor i = 3 To lastRowIf ws.Cells(i, "C").Value <> "" ThencurrentValue = ws.Cells(i, "C").ValueElsews.Cells(i, "C").Value = currentValueEnd IfNext
End Sub