使用VBA WorksheetFunction实现全为N/A时删除命名区域遇Error 1004求助

咱们先拆解你代码里的几个核心问题，这既是触发Error 1004的原因，也会导致你的判断逻辑完全失效：

• 误用了Count函数和参数：你写的Count(Range("Allowances_Credits_Range", "n/a"))不符合语法，而且Count仅统计数字型数据，文本格式的"N/A"会被直接忽略，这会让你的判断条件永远不成立。
• 没正确调用CountIf：统计指定条件的单元格数量，必须用Application.WorksheetFunction.CountIf，而非错误搭配Count。
• 工作簿引用可能有隐患：如果PharmacyPricingGuarantees2是变量，要确保它存储的是正确的工作簿名称字符串，或是已定义的Workbook对象，否则会触发引用错误。

修正后的完整代码 #

Sub RemoveAllowancesIfAllNA()
    Dim targetWs As Worksheet
    Dim allowancesRange As Range
    Dim removeTargetRange As Range
    Dim totalCellCount As Long
    Dim naCellCount As Long
    
    ' 明确引用目标工作表，避免ActiveSheet带来的潜在问题
    Set targetWs = Workbooks("PharmacyPricingGuarantees2").Sheets("Pharmacy Pricing Guarantees")
    Set allowancesRange = targetWs.Range("Allowances_Credits_Range")
    Set removeTargetRange = targetWs.Range("Remove_Allowances_Credits")
    
    ' 获取命名区域的总单元格数，以及其中值为"N/A"的单元格数量
    totalCellCount = allowancesRange.Cells.Count
    naCellCount = Application.WorksheetFunction.CountIf(allowancesRange, "N/A")
    
    ' 判断是否所有单元格都是"N/A"，满足条件则删除对应整行
    If naCellCount = totalCellCount Then
        removeTargetRange.EntireRow.Delete
    End If
End Sub

关键细节说明 #

1. 清晰的对象引用：先把工作表和命名区域赋值给变量，代码可读性更强，也避免了因当前活动对象变化导致的异常。
2. 正确的判断逻辑：用CountIf统计"N/A"的数量，和区域总单元格数对比，这才是判断“所有值均为N/A”的准确方式。
3. 明确的删除操作：removeTargetRange.EntireRow.Delete确保删除的是目标区域对应的整行，比直接调用Delete更直观，也避免误删局部单元格。

额外注意事项 #

• 如果你的"N/A"是公式返回的错误值#N/A（而非文本），需要把CountIf的条件改成"#N/A"，或是用Application.CountIf(allowancesRange, CVErr(xlErrNA))来匹配错误值。
• 务必保证PharmacyPricingGuarantees2工作簿处于已打开状态，否则会触发文件未找到的错误。如果需要处理未打开的情况，可以先添加工作簿存在性检查，或是用完整文件路径打开。

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