If "iserror" FOR 循环具有不同的对象类型

Question

我有一列包含字符串类型（例如“N/A”）或数字。我正在尝试编写一个 vba 代码，如果 FOR 循环遇到字符串类型，它将被转换为 0。基本上发生的事情是代码下降一列 (K) 值（例如 10 美元、600 美元， $5200, N/A, $5)，如果它是一个数字，并且如果单元格中有文本，则保留单元格值，然后将文本转换为 0。范围是 (K6:K10)，公式看起来像,

=If(iserror(K6/10) = TRUE, 0, K6)

代码：

Dim a As Integer
Dim DilutedRev As Integer
For a = 6 To 10
    DilutedRev = ActiveCell(a, 11).Value
    If IsError(DilutedRev / 100) = True Then
        ActiveCell(a, 11) = 0
    Else
        ActiveCell(i, 11) = DilutedRev
    End If

Answer 1

首先，正如您在上一个问题中指出的那样； Activecell 仅指 activecell 它是一个单元格而不是一个范围。你想要 Cells()。

接下来通过在循环中重新声明变量，它允许 Excel 每次确定其类型。如果不是，它将是 excel 第一次分配的类型，并且您不能将文本值存储在 Integer 类型中。

然后我们测试该变量是否为数字。

但是你可以跳过它，按照@Jeeped 的建议去做。

Dim a As Integer

For a = 6 To 10
    Dim DilutedRev 
    DilutedRev = Cells(a, 11).Value
    If Not isnumeric(DilutedRev) Then
        Cells(a, 11) = 0
    Else
        Cells(a, 11) = DilutedRev
    End If

Answer 2

使用IsNumeric function 确定单元格是否包含数字。

Dim a As Long

With ActiveSheet
    For a = 6 To 10
        If IsNumeric(.Cells(a, "K").Value2) Then
            .Cells(a, 11) = CLng(.Cells(a, "K").Value2)
        Else
            .Cells(a, 11) = 0
        End If
    Next a
End With

由于相对原点¹，像您一样使用 ActiveCell property 并不是“最佳实践”；最好使用Range.Cells property。

返回布尔值的 VBA 函数（例如 IsNumeric、IsError 等）不必与 True 或 False 进行比较。它们已经是 True 或 False。

我已使用Range.Value2 property 进行检查，但也可以使用Range.Value property。

通常值得明确定义Range.Parent 工作表属性，而不是隐式依赖ActiveSheet property。

---

¹ _{严格来说，像您所做的那样偏移ActiveCell 并没有错，但结果完全与工作表上的当前选择相关，通常不被视为“最佳实践”。在工作表上选择 D5 后，activecell(1,1) 引用 D5，activecell(2,3) 引用 F6。在非常特殊的情况下，这种行为可能是可取的，但一般来说，最好使用Range.Cells property 并使用 row_number 和 column_number 从 @ 引用单元格987654332@ 视角，不作为从 ActiveCell 的偏移位置。}