查找代码求斧正、提速

smiletwo · 发表于 2023-2-23 17:07

wowo000 发表于 2023-2-23 16:24
smiletwo老师：有劳您给整一下，谢谢！

jz_l · 发表于 2023-2-23 17:43

wowo000 · 发表于 2023-2-23 18:19

fzxba 发表于 2023-2-23 16:16

衷心感谢您，fzxba老师！代码完美，谢谢您的帮助！！！

wowo000 · 发表于 2023-2-23 18:20

jz_l 发表于 2023-2-23 17:43

谢谢您，jz_l老师！完全符合俺的要求。

wowo000 · 发表于 2023-2-23 18:21

cjc209 发表于 2023-2-23 13:06
可以这样不?
Sub 查号匹对()
Dim Arr, Brr, x&, i&, R&, irow, Rng As Range

感谢您的帮助，cjc209老师！遗憾俺的设想不一致。

wowo000 · 发表于 2023-2-23 18:23

tanglf188 发表于 2023-2-23 16:14
请测试，有问题留言。

谢谢您的关注！tanglf188老师。抱歉效果和俺的要求不一致。

wowo000 · 发表于 2023-2-23 18:24

smiletwo 发表于 2023-2-23 17:07

感谢您，smiletwo老师！抱歉依旧不符合俺的要求。

cyq4896 · 发表于 2023-2-23 19:50

可以把这一句改为试试：arr = Sheet2.UsedRange

cyq4896 · 发表于 2023-2-23 19:51

wowo000 发表于 2023-2-23 14:49
smiletwo老师：这句 arr(i, 12) = brr(m, 13)提示越界？？有劳修正，谢谢！

改arr = Sheet2.UsedRange试试

cyq4896 · 发表于 2023-2-23 19:51

改一下arr = Sheet2.UsedRange试试

		自动登录	找回密码
密码			免费注册

[求助] 查找代码求斧正、提速