UC知道在excel里面执行下列代码为什么没有反应？
来源：百度知道 编辑：UC知道 时间：2024/08/22 05:44:40
有A B C D 四列数据
Sub TEST()
For i = 1 To 197
For j = 1 To 48
If Cells(i, 4) = Cells(j, 1) Then
Cells(i, 5) = Cells(j, 2)
Else
Next j
Next i
End Sub
Sub TEST()
For i = 1 To 197
For j = 1 To 48
If Cells(i, 4) = Cells(j, 1) Then
Cells(i, 5) = Cells(j, 2)
End If
Next j
Next i
End Sub
刚才打错了 是这些代码
为什么没有任何反应呢？
Sub TEST()
For i = 1 To 197
For j = 1 To 48
If Cells(i, 4) = Cells(j, 1) Then
Cells(i, 5) = Cells(j, 2)
Else
Next j
Next i
End Sub
Sub TEST()
For i = 1 To 197
For j = 1 To 48
If Cells(i, 4) = Cells(j, 1) Then
Cells(i, 5) = Cells(j, 2)
End If
Next j
Next i
End Sub
刚才打错了 是这些代码
为什么没有任何反应呢？
有反应呢，你改成下面的代码就看得见反映了（DoEvents放在循环中起到释放CPU资源的作用，避免假死情况出现）：
Sub TEST()
For i = 1 To 197
DoEvents
For j = 1 To 48
DoEvents
If Cells(i, 4) = Cells(j, 1) Then Cells(i, 5) = Cells(j, 2)
Next j
Next i
End Sub
不过我感觉这段代码设计好像不太恰当似的？呵呵
代码有问题
ELSE处应该是END IF
对补充问题的回复：
该代码比较A,D列的数据。
如果在A列找到D列的值，将对应行的B列值复制到D列值对应行的E列。
BTW：我觉得这个完全没有必要，直接在E列使用vlookup函数即可。