编辑我的代码后,我得到一个无效的下一个控件变量引用。是否有人能够解释导致此问题的原因?我的循环顺序的原因是因为我想首先检查一行的所有列,然后在寻找新匹配之前全部移动到新行
Sub Macro1()
'
' Loops through data and finds matches and then indexs information
'
Dim J As Integer
Dim P As Integer
Dim v As Integer
IRowL = Cells(Rows.Count, 1).End(xlup).Row
Dim sht As Worksheet
Set Master = Sheets("Master")
For J = 1 To IRowL
For v = 21 To IRowL
For P = 1 To IRowL
If cell.value(j,11)= Master.cell.value(p,1) and Cell.value(j,10) = Master.cell.value(p,v) then
cell.Value(j, 30) = Master.cell.Value(p, 7)
cell.Value(j, 31) = Master.cell.Value(p, 8)
Else
End If
Next p
Next v
Next J
'
End Sub
我想从第B栏(第二张图片)中获取信息,以及日期与第一张图片中的第K列匹配的列名称。
答案 0 :(得分:1)
下一个v和下一个P是错误的行,这是错误告诉你的。运行Next P时,您已经不在P循环中了。
尝试倒转线条,它应该运行。
如果您遇到某些特定问题,请明确混合使用' Next'陈述,你能解释一下吗?有更清晰的方法来做这样的事情。