比较两个单元格自定义函数
来源:百度文库 编辑:神马文学网 时间:2024/06/13 13:29:06
比较两个单元格自定义函数
*********************
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 [求助]用1个vba在两个单元格做两种排序 - ExcelVBA程序开发 - ...