【excel vba】在A列中搜索包含特定内容的单元格，查找它右边的单元格的内容

你是A2里边也是 满？或者其他位置还有 满 并不是你图上的 只有A1 有满？

要知道Find 的方法 你使用的参数 默认是 从左上角A1 之后开始的 所以 A2中 有满足条件的就不会显示找到A1 只有仅仅A1 一个单元格中 有 满 才会左后搜索到………………即A1是最后一个搜索的单元格，在没有指定开始位置的时候！
删除其他单元格 中的 满 仅仅保留A1 中有 就可以找到了……

你的这个搜索 没有实际使用意义！因为 只能找到A1 之后的第一个单元格中满足条件的……所以 根据你的需求 你要改变一下方法……避开第一行 数据就能按着你的意思来找到第一个满足条件的了……
祝你快乐！

function myfun(rng as range,finstr as string) as string
on error goto l_end
myfun = rng.find(finstr,lookin:=xlvalues,lookat:=xlwhole).address
exit function
l_end:
myfun=0
end function

'主函数
sub test()
dim addr1 as string
addr1 = myfun(range("a:d"),"满")
if addr1 = 0 then
msgbox("没找到")
else
msgbox("订单号" & range(addr1).offset(0,1).value & "左边有 满")
end if
end sub