<P>想写一个模块批量处理数据用,但是写完以后第一行就过不去.</P>
<P>提示子过程或函数未定义,错误指在第一行</P>
<P>下面是我写的程序</P>
<P> Sub main()<BR> Dim RowNumber As Long<BR> Dim PreStkcd As Long<BR> Dim CurrStkcd As Long<BR> Dim Trdmnt As Date<BR> RowNumber = 2<BR> PreStkcd = Range("A" &amp; RowNumber)<BR> CurrStkcd = Range("A" &amp; RowNumber)<BR> Do While CurrStkcd &lt;= 601998<BR> Trdmnt = #11/1/1991#<BR> If PreStkcd = CurrStkcd Then<BR> Do Until Trdmnt = #5/1/2007#<BR> If Range("B" &amp; RowNumber) &lt;&gt; Trdmnt Then<BR> Row("RowNumber:Rownumber").Select<BR> Selection.Insert Shift:=xlDown<BR> Range("A" &amp; RowNumber).Select<BR> ActiveCell.FormulaR1C1 = CurrStkcd<BR> Range("B" &amp; RowNumber).Select<BR> ActiveCell.FormulaR1C1 = Trdmnt<BR> End If<BR> RowNumber = RowNumber + 1<BR> Trdmnt = DateAdd("m", 1, Trdmnt)<BR> Loop<BR> ElseIf PreStkcd &lt;&gt; CurrStkcd Then<BR> PreStkcd = CurrStkcd<BR> End If<BR> CurrStkcd = Range("A" &amp; RowNumber)<BR> Loop<BR> End Sub<BR></P>
<P>那那段比较长的循环去掉这段运行就没有问题,但是加进去以后提示的是第一行出错,迷茫了...在线求解&gt;_&lt;</P>