代码进行好慢

Peny2020

我附件有个代码。因为数据有5000多条，所以运行这个代码时要等好久，请问我要怎么弄才可以让它运行的快点？
或者可以用字典？但字典我不太会。


请各位帮忙看看，谢谢。

qdtzq

别直接操作单元格，换数组

无敌小猪猪

Sub Check()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
   
    arr = Range("N1:AB" & Cells(Rows.Count, 14).End(xlUp).Row)
   
    For J = 2 To UBound(arr)
        If IsError(arr(J, 1)) Then
            arr(J, 15) = arr(J, 15) & " NoRegister"
        End If
        If Not IsError(arr(J, 4)) Then
            arr(J, 15) = arr(J, 15) & arr(J, 4)
        End If
        If arr(J, 8) = "0" Then
            arr(J, 15) = arr(J, 15) & " No InvoiceNo#"
        End If
        If arr(J, 9) = "0" Then
            arr(J, 15) = arr(J, 15) & " No CoO"
        End If
    Next
   
    Range("N1").Resize(UBound(arr), UBound(arr, 2)) = arr
    MsgBox "Done"
   
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

无敌小猪猪

仅供参考！

fanyoulin

你这种结构有瑕疵，万一不小心重复多运行了一遍代码，AB列的内容就全不对了；

吴中泉

fanyoulin 发表于 2023-5-23 15:10
你这种结构有瑕疵，万一不小心重复多运行了一遍代码，AB列的内容就全不对了；

在代码开始加个判断:如在任意一个没有使用到的空单元格设置标志.代码如下:
if cells(100,100) ="" then
cells(100,100)="已运行过一次"
else
exit sub
end if

吴中泉

如果是调试,还想重新运行一次,将此代码注释掉

Peny2020

吴中泉 发表于 2023-5-23 15:58
如果是调试,还想重新运行一次,将此代码注释掉

好的，我试试，谢谢你们

Peny2020

qdtzq 发表于 2023-5-23 15:01
别直接操作单元格，换数组

对哦，数组也不错，谢谢指导

Peny2020

无敌小猪猪 发表于 2023-5-23 15:07
仅供参考！

请问Rows.count,14 意思是14列最后一格的意思吗？