基本上我正在做的是我在 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