按指定间隔值反向查询与其对应的数据的自定义函数

WYS67

按里面的说明和要求创建自定义函数。要求代码的数据和结果区域必须突破65336行的限制。

按指定间隔值反向查询与其对应的数据的自定义函数.zip (26.96 KB, 下载次数: 11)

2018-12-4 13:29 上传

点击文件名下载附件

WYS67

这个问题，用函数公式计算特别复杂，公式很长，运算速度特别慢，一旦有几万行数据，就卡得不行，所以必须得用自定义函数才能搞定！

WYS67

希望老师们帮忙

WYS67

恳请老师们帮忙写出代码

WYS67

恳请老师们帮忙写出代码

WYS67

恳请老师们帮忙写出代码

yjh_27

中大奖要发红包的

回家再码

WYS67

yjh_27 发表于 2018-12-4 20:04
中大奖要发红包的

回家再码

谢谢老师！静候佳音！

WYS67

恳请老师们帮忙写出代码

yjh_27

WYS67 发表于 2018-12-5 05:51
谢谢老师！静候佳音！

1. Function AJIANGE(数据区域, 条件区域)
   
2. arr = 数据区域
   
3. brr = 条件区域
   
4. If Not IsArray(brr) Then
   
5.     Dim br(1 To 1, 1 To 1)
   
6.     br(1, 1) = brr
   
7.     brr = br
   
8. End If
   
9. 
   
10. ReDim abrr(999) As Boolean, a1rr(UBound(arr))
    
11. ReDim crr(1 To UBound(brr), 1 To 1)
    
12. k = -1
    
13. For i = UBound(arr) To 1 Step -1
    
14.     Do While arr(i, 1) = ""
    
15.         i = i - 1
    
16.     Loop
    
17.     If Not abrr(arr(i, 1)) Then
    
18.         k = k + 1
    
19.         abrr(arr(i, 1)) = True
    
20.         a1rr(k) = arr(i, 1)
    
21.     End If
    
22. Next
    
23. 
    
24. For i = UBound(brr) To 1 Step -1
    
25.     Do While brr(i, 1) = ""
    
26.         crr(i, 1) = ""
    
27.         i = i - 1
    
28.         If i < 1 Then Exit For
    
29.     Loop
    
30.     crr(i, 1) = a1rr(brr(i, 1))
    
31. 
    
32. Next
    
33. AJIANGE = crr
    
34. End Function
    

复制代码