vba 程序运行慢 如何优化

Sub 数据整理()
Dim arr()
Dim i, n As Integer
i = Range("b65536").End(xlUp).Row
arr = Range("a1" & ":" & "s" & i)
For n = 2 To i
If Len(arr(n, 12)) = 11 Then
arr(n, 15) = arr(n, 12)
arr(n, 12) = "集装箱"
Cells(n, "l") = arr(n, 12)
Cells(n, "O") = arr(n, 15)
End If

If arr(n, 12) = "高拦" Then
arr(n, 12) = "高栏"
Cells(n, "l") = arr(n, 12)
ElseIf arr(n, 12) = "后开门" Or arr(n, 12) = "侧开门" Then
arr(n, 12) = "箱车"
Cells(n, "l") = arr(n, 12)
ElseIf arr(n, 12) <> "飞翼" And arr(n, 12) <> "超长车" And arr(n, 12) <> "集装箱" And arr(n, 12) <> "箱车" And arr(n, 12) <> "高栏" Then
arr(n, 12) = "其他"
Cells(n, "l") = arr(n, 12)
End If

Dim qy As Date
qy = "1月2日"
If arr(n, 13) = qy Then
arr(n, 13) = "1、2号库之间"
Cells(n, "m") = arr(n, 13)
ElseIf arr(n, 13) = 3 Then
arr(n, 13) = "3号库"
Cells(n, "m") = arr(n, 13)
End If

If arr(n, 5) < 8.5 / 24 Then
arr(n, 1) = arr(n, 4) - 1
Cells(n, "a") = arr(n, 1)
Else

Cells(n, "a") = arr(n, 4)
End If

Next

End Sub

相关了解……