比较两个单元格自定义函数

来源：百度文库 编辑：神马文学网 时间：2024/04/27 14:05:59
比较两个单元格自定义函数


 

*********************

Function 比较两个单元格(r1 As Range, R2 As Range, BJ As Integer)
Select Case BJ
Case 1 '比较重复
For i = 1 To Len(r1)
If InStr(R2, Mid(r1, i, 1)) > 0 Then
比较两个单元格 = 比较两个单元格 & Mid(r1, i, 1)
End If
Next
Case 2 '前一个在后面一个里没有的字符
For i = 1 To Len(r1)
If InStr(R2, Mid(r1, i, 1)) = 0 Then
比较两个单元格 = 比较两个单元格 & Mid(r1, i, 1)
End If
Next
Case 3 '后一个在前面一个里没有的字符
For i = 1 To Len(R2)
If InStr(r1, Mid(R2, i, 1)) = 0 Then
比较两个单元格 = 比较两个单元格 & Mid(R2, i, 1)
End If
Next
   Case 4 '罗列2个单元格不重复的字符
For i = 1 To Len(r1)
If InStr(R2, Mid(r1, i, 1)) = 0 Then
比较两个单元格 = 比较两个单元格 & Mid(r1, i, 1)
End If
Next
For i = 1 To Len(R2)
If InStr(r1, Mid(R2, i, 1)) = 0 Then
比较两个单元格 = 比较两个单元格 & Mid(R2, i, 1)
End If
Next

End Select
End Function

比较两个单元格自定义函数 单元格格式的自定义详解 c语言不注重大小写地比较两个串函数 根据单元格内容创建自定义弹出菜单 自定义格式 单元格输入 显示为 自定义多条件数组函数 c语言中以大小写不敏感方式比较两个串函数 几个ASP好用的自定义函数 Matlab 如何设置 自定义函数 的调用 宏函数与函数的比较 感觉比较顺手的几个自定义键 快速的将两个单元格的内容互换 使用自定义函数对 ASP.NET 服务器控件进行验证 提取Excel不重复值的自定义函数方案 两个时代的腐败问题比较 两个时代的腐败问题比较 Excel中怎样自定义函数\自定义排序\隐藏数据\打印工资条 ASP用于分页的两个函数 利用datediff函数来计算两个时间差 SQLServer中比较常用的函数 c语言中串比较函数 两个典型京港小家庭比较 两个典型京港小家庭比较 Excel [求助]用１个vba在两个单元格做两种排序 - ExcelVBA程序开发 - ...