请教 我编的那里有错？

xsjtr_81

<p>Sub su()<br/>&nbsp;Dim k As Long, dd As Single<br/>&nbsp;While dd &lt;= 10000<br/>&nbsp; k = k + 1<br/><font color="#f70938">&nbsp; dd = dd + Cells(k, 1)</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;<br/>&nbsp;Wend<br/>&nbsp;MsgBox Cells(k - 1, 1).Address<br/>&nbsp;<br/>&nbsp; <br/>End Sub<br/></p><p>总是提示红色语句错误 但是我照着赵老师 的程序编的怎么也出错？</p><p>还是我的电脑有问题？</p>

兰色幻想

<p>Sub su()<br/>&nbsp;Dim k As Long, dd As Single<br/>&nbsp;While dd &lt;= 10000<br/>&nbsp; k = k + 1<br/><font color="#f70938">&nbsp; dd = dd + Cells(k, 1)</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;Wend<br/>&nbsp;MsgBox Cells(k - 1, 1).Address<br/>End Sub</p><p>如果A列的数值和小于10000,那么它就会一直循环下去,循环的结果是K&gt;65536,而excel2003最大行数是65536,大于这个行数程序当然就会出错.<br/></p>

xsjtr_81

谢谢