循环遍历范围以删除 N/As

Question

我有一组数据，我试图删除 N/As 并将数据向左移动。这是我的一段代码：

For Each Cell In Range    
 If Cell.Value = "NA" Then 
   Cell.Delete Shift:=xlToLeft
 End If  
Next Cell

但是，当我有两个连续的 NA 时，第一个 NA 删除会将第二个 NA 移入第一个单元格，其中循环不会移动到下一个单元格，因此最终结果我将不得不多次运行宏删除所有 NA。我试图在它上面写一个 Do until 循环，说“do until Range.value <> "NA"”，它出错了。解决此问题的最佳方法是什么？

提前感谢您的帮助！