楼主,这个应该调用什么api能很快搞定,不过我一般用vba主要处理数据啥的,我大概试了下,用下面的方法也可行的。
sub
test()
dim
arr()
as
string,
brr()
as
string
dim
crr()
as
string
dim
i
as
long,
k
as
long
'随便定义了2个数据,按楼主说的,brr的所有元素在arr都存在
arr
=
split("a,b,c,d,e,f,g",
",")
brr
=
split("b,d,g",
",")
'用crr来存取
arr-brr的元素,crr的大小如下
redim
crr(ubound(arr)
-
ubound(brr)
-
1)
'开整,遍历arr,把每个brr中没有的放到crr中就好了
for
i
=
0
to
ubound(arr)
if
ubound(filter(brr,
arr(i)))
<>
0
then
crr(k)
=
arr(i)
k
=
k
+
1
end
if
next
i
end
sub
我试过了,可以滴。方法思路就是这个啦
温馨提示:答案为网友推荐,仅供参考