麻烦大家帮忙优化下代码

polluxb1981

如果B列物资名称是A类钢材，C列送检单位是鞍山钢厂，同时满足相关 验收标准后在W列中显示结果。写了一段代码，由于数据量偏大运行速度较慢，麻烦大家帮忙优化一下

Sub ed()
Dim i As Long
For i = 9 To Range("b65536").End(3).Row
If Cells(i, 2) = "A类钢材" And Cells(i, 3) = "鞍山钢厂" And Cells(i, 7) <= 0.0025 And Cells(i, 8) <= 0.0025 And Cells(i, 10) <= 0.00085 And Cells(i, 11) <= 0.0005 And Cells(i, 18) <> "不合格" Then
   Cells(i, 23) = "A"
ElseIf Cells(i, 2) <> "A类钢材" Then
     Cells(i, 23) = " "
   End If
Next
End Sub

liulang0808

一、关闭屏幕刷新
二、考虑数组处理吧

yes363001640

根据你写的条件只有前面4个符合。可以用数组，结构差不多。用数组改了一下，但是只有4个没必要上传了、要么就是你的条件设置的问题。慢不是因为数据多，是因为你用change，下面在改变单元格，上面又触发。另外你可以增加一个空值跳过。

microyip

屏蔽屏幕刷新，屏蔽事件响应，换成数组处理

polluxb1981

yes363001640 发表于 2020-1-18 10:50
根据你写的条件只有前面4个符合。可以用数组，结构差不多。用数组改了一下，但是只有4个没必要上传了、要么 ...

数据1年下来近3W条，数组不太会用，您说的问题正是我的困惑之处，能指点一下吗

yes363001640

polluxb1981 发表于 2020-1-18 10:59
数据1年下来近3W条，数组不太会用，您说的问题正是我的困惑之处，能指点一下吗

你还不如把完整数据上传上来，楼上那个流氓兔图像的是大神，分分钟就弄完。

polluxb1981

microyip 发表于 2020-1-18 10:57
屏蔽屏幕刷新，屏蔽事件响应，换成数组处理

麻烦指点一下

microyip

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Row >= 9 And Target.Column = 1 Then
   
3.         Application.ScreenUpdating = False
   
4.         Application.EnableEvents = False
   
5.         Call ed
   
6.         Application.EnableEvents = True
   
7.         Application.ScreenUpdating = True
   
8.     End If
   
9. End Sub
   
10. Sub ed()
    
11.     Dim vData As Variant, nRow As Double, vFill As Variant
    
12.     With ActiveSheet
    
13.         nRow = .Cells(.Rows.Count, 2).End(xlUp).Row
    
14.         If nRow < 9 Then Exit Sub
    
15.         With .UsedRange
    
16.             vData = .Offset(1 - .Row).Resize(nRow).Value
    
17.         End With
    
18.         ReDim vFill(9 To UBound(vData), 1 To 1)
    
19.         
    
20.         For nRow = 9 To UBound(vData)
    
21.             If vData(nRow, 2) = "A类钢材" And vData(nRow, 3) = "鞍山钢厂" And vData(nRow, 7) <= 0.0025 And vData(nRow, 8) <= 0.0025 And _
    
22.                 vData(nRow, 10) <= 0.00085 And vData(nRow, 11) <= 0.0005 And vData(nRow, 18) <> "不合格" Then
    
23.                 vFill(nRow, 1) = "A"
    
24.                 End If
    
25.         Next
    
26.         .Cells(9, 23).Resize(UBound(vFill) - 8) = vFill
    
27.     End With
    
28. End Sub

复制代码

polluxb1981

liulang0808 发表于 2020-1-18 10:31
一、关闭屏幕刷新
二、考虑数组处理吧

版主，麻烦指点一下如何用数组修正代码及屏蔽屏幕刷新，屏蔽事件响应问题

microyip

附上附件以供参考