问题遇到的现象和发生背景
问题相关代码,请勿粘贴截图
Sub 总分()
Dim i, k, j
i = 2
For j = 1 To Sheets.Count
Do While Sheets(j).Range("a" & i) <> ""
k = k + Sheets(j).Range("b" & i)
i = i + 1
Loop
Sheets(j).Range("d2") = k
Next
End Sub
运行结果及报错内容
为啥只显示for循环里第一个循环的结果?