[已解决]VBA中运用SQL查询符合条件的记录时速度慢问题

hwc2ycy

1. Range("a1").CurrentRegion.Select
   
2. On Error Resume Next
   
3. Range("A1").CurrentRegion.Select
   
4. ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$N$2539"), , xlYes).Name = "表1"
   
5. ActiveSheet.ListObjects("表1").TableStyle = "TableStyleLight13"
   

复制代码

录的一点代码，你加在序号填充的后面。

hwc2ycy

复制源表，粘贴格式，这是一个办法，

yjwdjfqb

hwc2ycy 发表于 2012-11-2 15:14
录的一点代码，你加在序号填充的后面。

感谢老师的帮助！！！