根据string/空单元格清除单元格中的内容

我正在尝试清除单元格内容，如果我发现“na”作为单元格值或者单元格已经空白。

示例如下所示：

Rep Intakes Var Plan CAL Rep Intakes Act CAL Rep Intakes na 373.00 na 8.00 371.00 374.00 23.00 379.00 358.00 69.00 398.00 -18.00 175.00 148.00 11.00 na 252.00 

我的数字列从E开始到ARA我想编写VB代码查看给定的列范围，并检查每个单元格以检查它是否为空或“na”。 在这两种情况下，它应该清除细胞。

Answer 1

尝试这个：

 Sub naKiller() Dim r As Range, v As String For Each r In ActiveSheet.UsedRange v = r.Text If v = "na" Or v = "" Then r.Clear End If Next r End Sub 

Answer 2

我写了两个方法来解决这个问题：

 Sub Clear_Empty_Cells_Contents() Dim cell As Range With ActiveSheet For Each cell In .Range("E2:ARA350") If IsEmpty(cell) Then cell.ClearContents End If Next End With End Sub 

---

 Sub Clear_Cells_based_on_value() Dim cell As Range With ActiveSheet For Each cell In .Range("E2:ARA360") If cell.Value = "na" Then cell.ClearContents End If Next End With End Sub 

UsedRange是一个好方法，我会build议（我以前不知道这个）

我遇到的问题是：

1. 我在数字types列中有na，当我在R中获取这些数据时，
2. Excel把“”放在空白单元格中，R把它当作一个值来处理。

从上面的方法，我能够删除“”和呐。

感谢您的帮助。

问候