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是一个好方法，我会建议（之前我不知道）

我遇到的问题是：

我在数字类型列中使用了na，当我在R中获取此数据时，它会破坏所有内容。
Excel正在推出＆＃34;＆＃34;在空白单元格中，R将其视为一个值。

从上面的方法我能够删除＆＃34;＆＃34;和na。

感谢您的帮助。

此致

基于字符串/空单元格清除单元格中的内容

2 个答案: