看完了,你这个代码就是别人帮你专门编写的啊。我测试了,是对的。满足你要的效果呀。
如果非要挑毛病,那就是当甲乙丙丁工作簿中的型号在1234工作簿中找不到,那么程序会报错。
加一个错误处理就可以:
with sheets("sheet1")20210311
ar = .range("e4", .[f65536].end(3))
redim ar1(1 to ubound(ar), 1 to 1)
redim ar2(1 to ubound(ar), 1 to 1)
redim ar3(1 to ubound(ar), 1 to 1)
on error goto check
for i = 1 to ubound(ar)
ar1(i, 1) = split(d(ar(i, 1) & ar(i, 2)))(0)
ar2(i, 1) = split(d(ar(i, 1) & ar(i, 2)))(1)
ar3(i, 1) = split(d(ar(i, 1) & ar(i, 2)))(2)
next
.[i4].resize(ubound(ar)) = ar1
.[m4].resize(ubound(ar)) = ar2
.[p4].resize(ubound(ar)) = ar3
end with
application.screenupdating = true
exit sub
check:
d(ar(i, 1) & ar(i, 2)) = "找不到 找不到 找不到"
resume
end sub
特别声明:本网为公益网站,人人都可发布,所有内容为会员自行上传发布",本站不承担任何法律责任,如内容有该作者著作权或违规内容,请联系我们清空删除。