发布网友 发布时间:2022-04-22 03:52
共1个回答
热心网友 时间:2023-09-13 16:53
可以用自定义函数(vba)
按alt+f11
右键新建一个模块
粘贴以下代码
function
查找相同(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
next
查找相同
=
a
end
function
再回到excel界面,写公式=查找相同(a1,b1)
即可查出结果