哪位大神帮我看看这个excel宏怎么陷入了死循环? 该怎么修改?请指教

2025-06-22 07:56:24
推荐回答(1个)
回答1:

If Cells(i, 3).value <> "" Then Cells(i, 6) = Cells(i, 3)
If Cells(i, 5).value <> "" Then Cells(i, 8) = Cells(i, 5)
Cells(i, 4).value = Cells(i, 3) .value* Cells(i, 2).value
Cells(i, 6).value = Cells(i, 3) .value+ Cells(i, 6).value
Cells(i, 8) .value= Cells(i, 5) .value+ Cells(i, 8).value

Cells(i, 3).resize(1,3).ClearContents