有个Excel的函数公式帮忙找下,可能要用到VBA宏编
1个回答
推荐于2016-03-28
展开全部
可以用自定义函数(vba)
按alt+f11 右键新建一个模块
粘贴以下代码
Function FindSameStr(rg1 As Range, rg2 As Range)
For i = 1 To Len(rg1.Value)
If InStr(rg2, Mid(rg1.Value, i, 1)) > 0 Then
a = a & Mid(rg1, i, 1)
End If
NextFindSameStr = a
End Function
再回到excel界面,写公式=查找相同(A1,B1)
即可查出结果
按alt+f11 右键新建一个模块
粘贴以下代码
Function FindSameStr(rg1 As Range, rg2 As Range)
For i = 1 To Len(rg1.Value)
If InStr(rg2, Mid(rg1.Value, i, 1)) > 0 Then
a = a & Mid(rg1, i, 1)
End If
NextFindSameStr = a
End Function
再回到excel界面,写公式=查找相同(A1,B1)
即可查出结果
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询