1

基本上我正在做的是我在 AI 列中有数据,我试图通过它们在 D 中的值复制数据 [Columns DG]。在这个循环中,我正在寻找 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
4

1 回答 1

3

更改i.Valuei.Text。您不需要该值,因为您将其与整数进行比较。你想检查字符串,使用i.Text会做到这一点。

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

于 2013-09-27T19:19:47.400 回答