[已解决]请做的自定义函数

jinru

请做的自定义函数
表格中已说明，谢谢

Book1.rar (6.07 KB, 下载次数: 304)

2013-4-2 16:54 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-4-2 21:24

jinru 发表于 2013-4-2 17:39
谢谢，完全符合，
但有个要求，能否用两个参数，因为可能A4单元格和D4单元格比较，隔了一列或一行，
谢谢

1. Function TQBT(RNG1, RNG2)
   
2.     arr1 = Split(RNG1, ",")
   
3.     arr2 = Split(RNG2, ",")
   
4.     For i = 0 To UBound(arr1)
   
5.         y = False
   
6.         For j = 0 To UBound(arr2)
   
7.             If arr1(i) = arr2(j) Then
   
8.                 y = True
   
9.                 Exit For
   
10.             End If
    
11.         Next j
    
12.         If y = False Then s = s & arr1(i) & ","
    
13.     Next i
    
14.     TQBT = Left(s, Len(s) - 1)
    
15. End Function

复制代码

298395-VBA-自定义函数-提取不同-1.rar (12.82 KB, 下载次数: 250)

2013-4-2 21:24 上传

点击文件名下载附件

跳转到最佳答案楼层

那么的帅

1. Function TQBT(RNG1)
   
2.     arr = RNG1
   
3.     arr1 = Split(arr(1, 1), ",")
   
4.     arr2 = Split(arr(1, 2), ",")
   
5.     For i = 0 To UBound(arr1)
   
6.         y = False
   
7.         For j = 0 To UBound(arr2)
   
8.             If arr1(i) = arr2(j) Then
   
9.                 y = True
   
10.                 Exit For
    
11.             End If
    
12.         Next j
    
13.         If y = False Then s = s & arr1(i) & ","
    
14.     Next i
    
15.     TQBT = Left(s, Len(s) - 1)
    
16. End Function

复制代码

298395-VBA-自定义函数-提取不同.rar (12.73 KB, 下载次数: 32)

2013-4-2 17:22 上传

点击文件名下载附件

jinru

谢谢，完全符合，
但有个要求，能否用两个参数，因为可能A4单元格和D4单元格比较，隔了一列或一行，
谢谢

那么的帅

jinru 发表于 2013-4-2 17:39
谢谢，完全符合，
但有个要求，能否用两个参数，因为可能A4单元格和D4单元格比较，隔了一列或一行，
谢谢

1. Function TQBT(RNG1, RNG2)
   
2.     arr1 = Split(RNG1, ",")
   
3.     arr2 = Split(RNG2, ",")
   
4.     For i = 0 To UBound(arr1)
   
5.         y = False
   
6.         For j = 0 To UBound(arr2)
   
7.             If arr1(i) = arr2(j) Then
   
8.                 y = True
   
9.                 Exit For
   
10.             End If
    
11.         Next j
    
12.         If y = False Then s = s & arr1(i) & ","
    
13.     Next i
    
14.     TQBT = Left(s, Len(s) - 1)
    
15. End Function

复制代码

298395-VBA-自定义函数-提取不同-1.rar (12.82 KB, 下载次数: 250)

2013-4-2 21:24 上传

点击文件名下载附件

jinru

谢谢，完全正确，谢谢帮助！！！！！

zld0807

学习了。。。。。。。。。。。

50563133

看不明白

七彩屋

那么的帅老师，太厉害了。

Banieliang

学习了

zh858585