求一个单元格内有条件取数值的自定义函数

zhangstone

wrl168：
你好！
感谢您的回复，我用了您的代码，您的代码不完全正确，有错误。

yjh_27

zhangstone 发表于 2021-10-23 20:14
yjh_27大侠：
您好！
=qushu(A2:B2,3)这个能改成=qushu(A2，B2,3)吗？改成逗号就完美了。

数组公式

1. Function qushus(a, b, m)
   
2. arr = a
   
3. a2rr = b
   
4. ReDim scrr(1 To UBound(arr), 1 To 1)
   
5. For i = 1 To UBound(arr)
   
6.     brr = Split(arr(i, 1), ",")
   
7.     crr = Split(a2rr(i, 1), ",")
   
8.     For j = 0 To UBound(brr)
   
9.         If Val(crr(j)) > m Then
   
10.             scrr(i, 1) = scrr(i, 1) & "," & brr(j)
    
11.         End If
    
12.     Next
    
13.     scrr(i, 1) = Mid(scrr(i, 1), 2)
    
14. Next
    
15. qushu = scrr
    
16. End Function

复制代码

1. Function qushu(a, b, m)
   
2.     brr = Split(a, ",")
   
3.     crr = Split(b, ",")
   
4.     For j = 0 To UBound(brr)
   
5.         If Val(crr(j)) > m Then
   
6.             scrr = scrr & "," & brr(j)
   
7.         End If
   
8.     Next
   
9.     scrr = Mid(scrr, 2)
   
10. qushu = scrr
    
11. End Function

复制代码

zhangstone

yjh_27大侠：
  超级感谢！

zhangstone

yjh_27大哥：

  您好！

yjh_27

zhangstone 发表于 2021-10-25 08:30
yjh_27大哥：

  您好！

If Val(crr(j)) = m Then

zhangstone

yjh_27大哥：

  您好！

yjh_27

zhangstone 发表于 2021-10-25 10:02
yjh_27大哥：

  您好！

If Val(crr(j)) > m Then
改
If "," & m & "," Like "*," & crr(j) & ",*" Then

zhangstone

yjh_27大哥：

谢谢您！

zhangstone

yjh_27大侠：

还是求助您这个问题，

准提部林

隔一年還來補問,
可見代碼沒看通,
只條件改變, 應很好修改!!!