请大神帮看看，如何修改代码？

梓苏

刚开始学习vba，请大神帮看看，在表中插入A列，添加序号，用遍历循环，太慢了。。。有好几千行。。怎样改？？？？数组应该快，但不会写。。谢谢
可以手工插入，双击。。。搞，但我是再一个大表中要vba删除行，列后得出的。全部Ａ股20260417是原表，要的效果是结果表，删除行列等等我都搞好了，原表代码列，要改数据格式。原表  ="688560" 要去掉=和" ",改为文本688560，我用替换搞好了。。。就是序号太慢了


Sub 删除列留AB()

    Dim i As Long

         Cells.Replace what:="*历史行情*", Replacement:="#NAME?", Lookat:=xlWhole
        Cells.SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
        Cells.Replace what:="*通达信*", Replacement:="#NAME?", Lookat:=xlWhole
        Cells.SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete
      
        
        Range("C:E").Delete   '保留涨幅AB,F列   Range("AE:AC").Delete
   Columns("A:A").Select
    '替换，=为空，"为 '
    Selection.Replace what:="=", Replacement:=" ", Lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True
    Selection.Replace what:=" " & """" & "", Replacement:="'", Lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True
    Selection.Replace what:="" & """" & "", Replacement:="'", Lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True
    Selection.Replace what:="'", Replacement:=" ", Lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False, SearchFormat:=True, ReplaceFormat:=True
  
   
   '插入序号
     Columns("A:A").Insert Shift:=xlToRight
       Range("A1") = "序号"
       n = Cells(Rows.Count, 2).End(3).Row
            For i = 1 To n - 1
                  Cells(i + 1, "a") = i
            Next
     
     Range("D:D").SpecialCells(xlCellTypeBlanks) = 0 'DE列空的便是0      
      
   MsgBox "OK"

End Sub



附件.rar

沈家辉

希望博主多出系列教程。

小威哥

知识点总结得很到位，收藏了。

香香宝贝

适合快速入门和查漏补缺。

葵亥鑫垚

终于找到一篇讲明白的了，谢谢博主。

张果果

帮你顶下哈！！

傳說中的大俠

LZ真是人才

记得早睡哦

讲解通俗易懂，不搞玄学。

没头脑不高兴

找到好贴不容易，我顶你了，谢了

吾戈

不错不错，楼主您辛苦了。。。