帮忙简化代码，提高运行速度

locker00700 · 发表于 2018-6-9 16:47

帮忙简化代码，提高运行速度
arr = ActiveSheet.UsedRange
Dim aa1 As String
For i = 2 To UBound(arr)
aa1 = Cells(i, 3)
If Cells(i, 1) = "" Then
Range(Cells(i, 2), Cells(i, 15)).ClearContents
ElseIf Cells(i, 1) = "生产" Then
Range(Cells(i, 6), Cells(i, 9)).ClearContents
Cells(i, 6) = aa1
ElseIf Cells(i, 1) = "送货" Then
Range(Cells(i, 6), Cells(i, 9)).ClearContents
Cells(i, 7) = aa1
ElseIf Cells(i, 1) = "入货" Then
Range(Cells(i, 6), Cells(i, 9)).ClearContents
Cells(i, 8) = aa1
End If
Next i

lsc900707 · 发表于 2018-6-9 17:43

建议楼主上传个附件。

EH679841 · 发表于 2018-6-9 17:53

尽量不要遍历单元格，改用数组可能对你有帮组

		自动登录	找回密码
密码			免费注册

[讨论] 帮忙简化代码，提高运行速度