怎么用宏语言编写

learn2008

例如：
Sub sheet1()
Dim I
I = 0
For I = 2 To 2 * 1 Step 16
    Rows(I).Select
    Selection.Insert SHIFT:=xlDown
    Selection.Insert SHIFT:=xlDown
   
      
        
    Cells(I, 1).Value = Cells(I - 1, 2).Value
    Cells(I - 1, 2).Clear
      
    Cells(I + 1, 1).Value = Cells(I - 1, 3).Value
    Cells(I - 1, 3).Clear
   

      
    Next I
   
   
End Sub

当运行宏的时候，每次都在自动在行头添加“xxxx”  行末 “YYY” 信息 ，怎么通过宏语言实现这个的功能？

zhouzhengping

我用vba在EXCEL中开发了一个程序,该程序功能较多,使用了很多数组每次使用完数组都释放了,在vba中我也使用了ADO,每次运行完后都报"可用资源不足,EXCEL无法完成此任务,请少选择一些数据或关闭其他应用程序"这个错误,我看了下报错时候CPU和内存使用情况都不到1/3,所以我很纳闷这是什么问题?是excel本身的BUG还是由于程序本身还是由于硬件所致?请各位大虾多多指教?