如果将第6条语句这样写，就不报错

hhh0310

Sub abcde()
Dim a, b
For a = 2 To 100
For b = 3 To 100
If Cells(a, b) = "" Then
Cells(a, 2) = 7 - (Cells(1, 1) - Cells(a, b - 1))
a = a + 1
b = 3
Else
End If
If a > 60 Then
Exit Sub
End If
Next b
Next
End Sub
如果将第6条语句这样写，就不报错。
Cells(a, 2) = (Cells(1, 1) - Cells(a, b - 1))-7
为什么？

idnoidno

大哥，您的報錯是在甚麼情況下會產生
我兩個方式都執行，當然在空白的儲存格條件下都可以運作，沒有出現錯誤的情況

hhh0310

可能被循环的某个单元格写入了别的数据。

ppp710715

没有出错啊！