將值向下填入資料行中的空白儲存格

下列範例會查看資料行 A，如果有空白儲存格，則會將空白儲存格的值設定為等於其上方儲存格的值。 這會繼續整個資料行，將值向下填入每個空白儲存格。

範例程式碼提供者： Tom Urtis，Atlas Programming Management

Sub FillCellsFromAbove()
    ' Turn off screen updating to improve performance
    Application.ScreenUpdating = False
    On Error Resume Next
    ' Look in column A
    With Columns(1)
        ' For blank cells, set them to equal the cell above
        .SpecialCells(xlCellTypeBlanks).Formula = "=R[-1]C"
        'Convert the formula to a value
        .Value = .Value
    End With
    Err.Clear
    Application.ScreenUpdating = True
End Sub

關於參與者

MVP Tom Urtis 是 Atlas Programming Management 的創辦人，這家公司位於矽谷，專門提供 Microsoft Office 和 Excel 商務解決方案全套服務。 Tom 擁有 25 年的業務管理和開發 Microsoft Office 應用程式的經驗，並共同編寫了《Holy Macro! It's 2,500 Excel VBA Examples》。

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。