编辑代码后,我得到一个无效的next控制变量引用。有人能解释一下是什么导致了这个问题吗?循环顺序的原因是因为我想先检查一行的所有列,然后在查找新的匹配项之前将所有列移到新的行
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列相匹配的列名中获取信息。
1条答案
按热度按时间8wigbo561#
下一个v和下一个P在错误的行上,这就是错误告诉你的。当你运行Next P时,你已经离开了P循环。
试着反转线路,它应该运行。
如果您试图通过显式地混合“Next”语句来解决一些特定的问题,您能解释得更详细一些吗?有更清晰的方法来做这样的事情。