VBA代码优化

一休和尚

各位老师：
下面的代码运行时会提示内存溢出，运行到红色这一段就有报警；不知道什么原因，还望老师帮忙看一下
Sub 删除机床图号相同行()
    Dim arr, rng As Range, d, i&, p$, irow&, x$
    Dim s As Single
    s = Timer
    Application.ScreenUpdating = False
    Set d = CreateObject("scripting.dictionary")
    arr = ActiveSheet.UsedRange
    irow = ActiveSheet.UsedRange.Rows.Count
    Set rng = Cells(irow + 1, 4)
    If IsArray(arr) = False Then Exit Sub
    For i = UBound(arr) To 2 Step -1
       x = arr(i, 8) & arr(i, 11)
       If Not d.exists(x) Then d(x) = 1 Else Set rng = Union(rng, Cells(i, 4))
    Next
    rng.EntireRow.Delete
    Application.ScreenUpdating = True

End Sub

爱疯

虽然便于查看代码，但还是需要上传附件

砂海

个人感觉 ActiveSheet 不是那么可靠,
不妨在 这句前面 加已经
debug.print ActiveSheet.name
看看 ActiveSheet 是不是预计的.

一休和尚

爱疯 发表于 2019-12-18 11:11
虽然便于查看代码，但还是需要上传附件

版主：
这个代码是作为宏指令用的；对所有文件只要符合这个要求就可以使用；不固定在一个文件里面的；
这个问题会偶尔出现，也不知道是什么原因？

爱疯

只把数据的值复制到空白工作簿，并加上代码，再看？
只留红色那句，再看？
不断减少数据，直至无数据，再看？


我只能猜到这儿了

ligh1298

arr = sheets("你的表名").UsedRange
或
arr=sheets("你的表名").[a1].currentregion