VBA程序运行太慢怎么解决?

以下是我的一段VBA程序, 我先做了个验证结果是可行的, 但是当我放到一个大文件中的时候,运行速度慢的很,像卡住了一样, 请帮忙看一下如何提高运行速度, 是否要用arr()?谢谢!

Sub Stock()

Application.ScreenUpdating = False

Dim c, d, e

c = "\\wux-file01\Public\ERP_Report\WXI\Logistic" '网盘路径

With Worksheets("Stock")

If Dir(c & "\ABC - Onhand for WXI.csv") <> "" Then

Set d = Workbooks.Open(c & "\Finisar - Onhand for WXI.csv")

d.Sheets("ABC - Onhand for WXI").Range("A1:AH60000").Copy .Range("A1") '将网盘上的文件中A1:AH60000单元格内容复制到本地的文件中

d.Close False

Else

MsgBox "请检查文件是否存在"

End If

.Range("A1").AutoFilter field:=27, Criteria1:="N"

.Range("A2:A" & .UsedRange.Rows.Count).EntireRow.SpecialCells(xlVisible).Delete '将筛选出的内容删除

.AutoFilterMode = False

e = .Range("A1048576").End(xlUp).Row

For i = e To 2 Step -1

If Left(.Cells(i, 5), 3) = "HWI" Then '符合此条件的行删除

.Rows(i).Delete

End If

Next

End With

Application.ScreenUpdating = True

End Sub

相关了解……