VBA中使用Len配合Left/Mid清除单元格独立NA值的问题

方案1：使用Left+Len组合实现（符合你要求的实现方式） #

你要匹配仅内容完全为"NA"的单元格，用Left+Len的实现逻辑是先校验单元格内容长度为2，再校验前2位字符等于"NA"即可，参考代码如下：

Dim nb As Workbook
' 注意给工作簿对象赋值，比如操作当前文件就用ThisWorkbook
Set nb = ThisWorkbook
Dim lastRow As Long
' 提前获取Q列最后一行行号，避免循环中重复计算
lastRow = nb.Sheets(1).Cells(nb.Sheets(1).Rows.Count, 17).End(xlUp).Row

For i = 2 To lastRow
    Dim cellVal As String
    cellVal = nb.Sheets(1).Range("Q" & i).Value
    ' 先判断长度为2，再判断前两位字符是NA，避免误匹配
    If Len(cellVal) = 2 And Left(cellVal, 2) = "NA" Then
        nb.Sheets(1).Range("Q" & i).Value = ""
    End If
Next i

你之前的代码无法运行是因为Left函数语法用错，Left仅支持2个参数：Left(待处理字符串, 截取长度)，你多传入了两个参数自然无法正常执行。

方案2：更简洁的全等匹配方案（更高效、无逻辑漏洞） #

完全不需要额外调用字符串处理函数，直接判断单元格内容是否完全等于"NA"即可，不会误匹配包含"na"的其他正常字符串：

Dim nb As Workbook
Set nb = ThisWorkbook
Dim lastRow As Long
lastRow = nb.Sheets(1).Cells(nb.Sheets(1).Rows.Count, 17).End(xlUp).Row

For i = 2 To lastRow
    If nb.Sheets(1).Range("Q" & i).Value = "NA" Then
        nb.Sheets(1).Range("Q" & i).Value = ""
    End If
Next i

如果需要区分大小写（比如避免把小写的"na"也清除），可以把判断条件改成：
If StrComp(nb.Sheets(1).Range("Q" & i).Value, "NA", vbBinaryCompare) = 0 Then

补充说明 #

如果数据量很大（超过1万行），可以把范围读入数组处理，运行速度会比逐行读取单元格快很多。

内容的提问来源于stack exchange，提问作者MaxWork