请问 我这个是哪里出错了？感谢
显示的是 未设置对象变量（错误 91）
Sub qq()
Dim x As Worksheet
Dim i, y, z
y = 0
i = 2
For z = 1 To Worksheets.Count
    Do While x.Cells(i, 2) <> ""
        y = x.Cells(i, 2) + y
        i = i + 1
        Loop
    x.Cells(2, 3) = y
    y = 0
    i = 2
Next z
End Sub

多看了两下 已解决