[已解决]求助：使用循环太慢了，使用数组或其他方法，谢谢1

wengrobert

我的目的是按P列分类汇总，之后删除借方合计=贷方合计的相关行。
我的循环如下，运行太慢了，请教大家，谢谢！
Sub aa1()
    Dim x As Long
    Dim y As Long
    Dim a As Long
    Dim b As Long
    x = Sheets("sheet1").[a65536].End(xlUp).Row
    y = Sheets("续期").[p65536].End(xlUp).Row

    For a = y To 2 Step -1
        For b = 1 To x
            If Sheets("续期").Range("p" & a) = Sheets("sheet1").Range("a" & b) Then
                Sheets("续期").Range("p" & a).EntireRow.Delete
            End If
        Next
    Next

End Sub

最佳答案

月排行榜 / 总排行榜

lzclzch

2012-7-26 21:58

这样行不行{:011:}{:011:}
用字典加数组应快很多吧

跳转到最佳答案楼层

lzclzch

这样行不行{:011:}{:011:}
用字典加数组应快很多吧

JLxiangwei

1. 副本Xl01.zip (150.98 KB, 下载次数: 29)
   2012-7-26 22:37 上传

   点击文件名下载附件

复制代码

从从容容

1. Sub aa1()
   
2.     Dim a As Long
   
3.     Dim b As Long
   
4.     Dim arr, arry
   
5.     Dim rag As Range
   
6.     arr = Sheets("sheet1").Range("a1:a" & Sheets("sheet1").[a65536].End(xlUp).Row)
   
7.     arry = Sheets("续期").Range("p2:p" & Sheets("续期").[p65536].End(xlUp).Row)
   
8.     For a = 1 To UBound(arry, 1)
   
9.         For b = 1 To UBound(arr, 1)
   
10.             If arry(a, 1) = arr(b, 1) Then
    
11.                If rag Is Nothing Then
    
12.                  Set rag = Sheets("续期").Range("p" & a + 1)
    
13.                 Else
    
14.                  Set rag = Union(rag, Sheets("续期").Range("p" & a + 1))
    
15.                End If
    
16.             End If
    
17.         Next
    
18.     Next
    
19. rag.EntireRow.Delete
    
20. End Sub
    

复制代码

我这个会更快些。