[已解决]请教：根据数字出现的个数进行判断的宏

海水鱼

求根据数字出现的个数进行判断的宏，因数据量大，要速度。谢谢！

最佳答案

月排行榜 / 总排行榜

xdragon

2013-11-10 02:25

1. Sub t()
   
2. Dim arr(), brr(), crr() As Long, arow As Integer, col As Byte, brow As Integer
   
3. With Sheets("sheet1")
   
4. arr = .Range("A3:AU1002").Value
   
5. brr = .Range("AW3:CQ63").Value
   
6. ReDim crr(1 To UBound(arr), 1 To UBound(arr, 2))
   
7. For arow = 1 To UBound(arr)
   
8.   For col = 1 To UBound(arr, 2)
   
9.     For brow = 1 To UBound(brr)
   
10.       If arr(arow, col) = brr(brow, col) Then crr(arow, col) = crr(arow, col) + 1
    
11.     Next
    
12.   Next
    
13. Next
    
14. .Range("CS3").Resize(UBound(crr), UBound(crr, 2)) = crr
    
15. End With
    
16. End Sub

复制代码

跳转到最佳答案楼层

xdragon

1. Sub t()
   
2. Dim arr(), brr(), crr() As Long, arow As Integer, col As Byte, brow As Integer
   
3. With Sheets("sheet1")
   
4. arr = .Range("A3:AU1002").Value
   
5. brr = .Range("AW3:CQ63").Value
   
6. ReDim crr(1 To UBound(arr), 1 To UBound(arr, 2))
   
7. For arow = 1 To UBound(arr)
   
8.   For col = 1 To UBound(arr, 2)
   
9.     For brow = 1 To UBound(brr)
   
10.       If arr(arow, col) = brr(brow, col) Then crr(arow, col) = crr(arow, col) + 1
    
11.     Next
    
12.   Next
    
13. Next
    
14. .Range("CS3").Resize(UBound(crr), UBound(crr, 2)) = crr
    
15. End With
    
16. End Sub

复制代码