遍歷命名范圍以刪除包含的空白單元格

Question

我正在嘗試編寫宏以刪除命名范圍內的空白單元格（值“”，不為空，因為可能包含公式），並且無法糾正運行時錯誤“ 424”，即需要“對象[is]” “。

Sub DeleteBlankCellsInANamedRange()
'Deletes empty cells in a named range (shifts cells up)

For Each c In Range("myNamedRange")
    If c.Value = 0 Then
        myNamedRange.Cells.Delete Shift:=xlUp 'error 424 throws here
    End If
Next c
MsgBox "Macro completed"

End Sub

我認為問題出在語法上，並且一直在嘗試其他事情而沒有運氣。 有任何想法嗎？ 請分享。 謝謝你的幫助！

Answer 1

Sub DeleteBlankCellsInANamedRange()
'Deletes empty cells in a named range (shifts cells up)

Dim rngCell     As Range
Dim rngDelete   As Range

For Each rngCell In Range("myNamedRange").Cells
    If rngCell.Value = 0 Then

        If Not rngDelete Is Nothing Then
            Set rngDelete = Union(rngDelete, rngCell)
        Else
            Set rngDelete = rngCell
        End If


    End If
Next

    If Not rngDelete Is Nothing Then
       rngDelete.Delete Shift:=xlUp
    End If

MsgBox "Macro completed"

End Sub