根据字符串/空单元格清除单元格中的内容

Question

如果我发现“ 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是一个好方法，我建议（以前我不知道）

我遇到的问题是：

1. 我在数字类型列中没有na，当我在R中获取此数据时，它毁了一切。
2. Excel将“”放入空白单元格，R将其视为值。

从上述方法中，我能够删除“”和na。

谢谢你们的帮助。

问候