[已解决]用VBA数组改写不用find函数 找出这样的数

laoau138

用VBA数组改写不用find函数 找出这样的数

最佳答案

月排行榜 / 总排行榜

france723

2017-6-11 00:13

1. Sub aaa()
   
2. Dim y, ar, i, n, j, p, m
   
3. n = 1
   
4. y = Range("a65536").End(3).Row
   
5. m = y
   
6. ReDim ar(1 To y - 3343 + 1, 1 To 3)
   
7. For i = 3343 To y
   
8.     ar(n, 1) = Cells(i, 1).Row
   
9.     ar(n, 2) = Val(Cells(i, 1))
   
10.     ar(n, 3) = Val(Cells(i, 2))
    
11.     n = n + 1
    
12. Next i
    
13. For j = 1 To UBound(ar)
    
14.     For p = 1 To UBound(ar)
    
15.         If ar(j, 2) = ar(p, 3) Then
    
16.             Cells(m, 4) = ar(j, 1)
    
17.             Cells(m, 5) = ar(j, 2)
    
18.             m = m - 1
    
19.         End If
    
20.     Next p
    
21. Next j
    
22. End Sub

复制代码

跳转到最佳答案楼层

france723

1. Sub aaa()
   
2. Dim y, ar, i, n, j, p, m
   
3. n = 1
   
4. y = Range("a65536").End(3).Row
   
5. m = y
   
6. ReDim ar(1 To y - 3343 + 1, 1 To 3)
   
7. For i = 3343 To y
   
8.     ar(n, 1) = Cells(i, 1).Row
   
9.     ar(n, 2) = Val(Cells(i, 1))
   
10.     ar(n, 3) = Val(Cells(i, 2))
    
11.     n = n + 1
    
12. Next i
    
13. For j = 1 To UBound(ar)
    
14.     For p = 1 To UBound(ar)
    
15.         If ar(j, 2) = ar(p, 3) Then
    
16.             Cells(m, 4) = ar(j, 1)
    
17.             Cells(m, 5) = ar(j, 2)
    
18.             m = m - 1
    
19.         End If
    
20.     Next p
    
21. Next j
    
22. End Sub

复制代码

laoau138

france723 发表于 2017-6-11 00:13

小猫如何做


VBA数组用两种方法  用like  和 instr方法

http://www.excelpx.com/thread-431008-1-1.html

laoau138

france723 发表于 2017-6-11 00:13

小猫如何做


VBA数组用两种方法  用like  和 instr方法

http://www.excelpx.com/thread-431008-1-1.html

laoau138

france723 发表于 2017-6-11 00:13

小猫如何做


VBA数组用两种方法  用like  和 instr方法

http://www.excelpx.com/thread-431008-1-1.html