VBA find 代替函数vlookup出现的问题求解

daweiDZ · 发表于 2018-7-10 14:35

下图应根据图二找到编号 T200K-03-01 对用的材料 H59-21.5X16. 实际是没找到。求解，谢谢

TIM截图20180710143201.png

朱荣兴 · 发表于 2018-7-10 15:45

提示: 作者被禁止或删除内容自动屏蔽

daweiDZ · 发表于 2018-7-10 17:17

朱荣兴发表于 2018-7-10 15:45
Set fng = rng.Find(Cells(y, 4), , , xlWhole)

谢谢。复制进去执行，还是找不到。

朱荣兴 · 发表于 2018-7-10 17:24

提示: 作者被禁止或删除内容自动屏蔽

liulang0808 · 发表于 2018-7-10 18:44

建议楼主上传附件的时候，注意下附件代码，说明要解决哪部分，并注明对应的表间关系
不然很难理解的
Set rng = Sheets("cp").Range("F2:F" & Sheets("cp").[h65536].End(xlUp).Row)
这个修改下看看吧

daweiDZ · 发表于 2018-7-11 16:49

liulang0808 发表于 2018-7-10 18:44
建议楼主上传附件的时候，注意下附件代码，说明要解决哪部分，并注明对应的表间关系
不然很难理解的
Set ...

谢谢，可以了。
看来取值错了， Sheets("cp").[h65536].

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-7-10 15:45 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-7-10 17:24 来自手机 \| 显示全部楼层 [广告] ★ ReportLite:表哥表姐早下班神器，专治各种报表不服，拒绝无意义的重复劳动 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] VBA find 代替函数vlookup出现的问题求解