Sub ??????2()
Dim number%
number = 1
Do While Cells(number + 1, 2) <> " "
number = number + 1
Cells(number, 2).Offset(0, 2) = Cells(number, 2) * Cells(number, 2).Offset(0, 1)
Loop
End Sub
为什么停止不了

Do While Cells(number + 1, 2) <> " "'这里的问题
改为：
Do While Cells(number + 1, 2) <> ""
就ok!