在命名範圍內循環以刪除包含的空白單元格

Question

我試圖編寫一個宏以刪除命名範圍中的空白單元格（值「」，非空，因爲可能包含公式），並且在修正運行時錯誤時遇到問題'424'，即「需要對象」。

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