代码优化

360°美

如下代码当数据有上万行时，运行速度很慢，有什么办法可以优化吗？感谢支持
Sub 删除物料行()

Dim i&

Set ws = ActiveSheet

    y = ws.Cells(Rows.Count, 2).End(xlUp).Row

For i = 2 To y

    If ws.Cells(i, 5) = "" And ws.Cells(i, 2) <> "" Then

       ws.Cells(i, 5) = ws.Cells(i - 1, 5) & "/" & ws.Cells(i - 1, 23)

       Rows(i - 1).Delete

       i = i - 1

      End If

    Next

End Sub

jiangxiaoyun

改用数组                 。

Chip_Kenny

沒有附件瞎猜的:

1. Sub zz()
   
2. Dim i&, ar, rng As Range
   
3. Columns(1).Insert
   
4. With [a1]
   
5.     ar = .CurrentRegion.Value
   
6.     For i = 2 To UBound(ar)
   
7.         ar(i, 1) = 1
   
8.         If ar(i, 6) = "" And ar(i, 3) <> "" Then
   
9.             ar(i, 6) = ar(i - 1, 6) & "/" & ar(i - 1, 24)
   
10.             ar(i - 1, 1) = 2
    
11.         End If
    
12.     Next
    
13.     .CurrentRegion = ar
    
14.     .CurrentRegion.Sort key1:=[a2], order1:=1, Header:=1
    
15. End With
    
16. Set rng = Columns(1).Find(2)
    
17. If Not rng Is Nothing Then Range(rng, Cells(Rows.Count, 1).End(3)).EntireRow.Delete
    
18. Columns(1).Delete
    
19. End Sub

复制代码