vba - 运行时错误 '13' 类型不匹配 IF 值 = Then 语句循环

Question

基本上我正在做的是我在 A-I 列中有数据，我试图通过它们在 D 中的值复制数据 [Columns D-G]。在这个循环中，我正在寻找 D 中的条目何时显示“1CME Cash-沉淀黄油”。

然后我从 K 列(=11)开始粘贴它。然后我堆叠行。

循环重新开始并开始寻找不同的值。

我的问题是我已经运行了很多次代码。从那以后我没有更改代码，但现在我得到了运行时错误类型“13”不匹配。有没有办法解决这个问题或编写新代码？

我只是在学习VBA!

谢谢!

iRow = 2
For Each i In Range("D2:D200")
    If i.Value = "1CME Cash-Settled Butter" Then
        Range(i.Offset(0, 0), i.Offset(0, 3)).Copy
        Cells(iRow, 11).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,   SkipBlanks:=False, Transpose:=False
        iRow = iRow + 1
    End If
Next i

iRow = 30
For Each i In Range("D2:D200")
    If i.Value = "-1CME Cash-Settled Butter" Then
        Range(i.Offset(0, 0), i.Offset(0, 3)).Copy
        Cells(iRow, 11).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        iRow = iRow + 1
    End If
Next i

Answer 1

更改i.Value至i.Text .您不需要该值，因为您将其与整数进行比较。您想检查字符串，并使用 i.Text会这样做。

您也可以cstr(i.Value) ，但这不是最好的方法。