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

发布网友发布时间：2022-05-14 01:02

共2个回答

热心网友时间：2023-11-17 02:48

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

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

你的这个搜索没有实际使用意义！因为只能找到A1 之后的第一个单元格中满足条件的……所以根据你的需求你要改变一下方法……避开第一行数据就能按着你的意思来找到第一个满足条件的了……
祝你快乐！追问A2没有满。只有A1有。
那请问有什么更好的搜索方法吗？？
最好能做到一次找出所有满（默认情况是全部中只有一个满）并且用msgbox提示

追答如果 A2 及其他没有满只有A1 有的话是应该能够找到的………………我这里运行这样的语句是可以找到的……
另外你这是个默认的是搜索全部的单元格如果其他单元格中有很多数据的话速度估计会很慢（没试过）应该指定一个搜索区域更好！（详细参看 Find 方法的说明）

如果你一次要找出所有的满在某个区域中那么你就要用到工作表函数了不知道你要将找到的结果怎样来处理所以无法给你更具体的代码建议……

如果你的 A列总是会有一个满字的话，就将第一行空出来作为列标题使用这样你原来的语句就可以正确执行了……即使第一个有效数据出现在数据区域的最上端
如果你的A列只能有一个满才算正确那么在代码开头的部分可以使用 If
If WorksheetFunction.CountIf(Cells, "满") > 1 Then
MsgBox "数据有误"
Exit Sub
这样类似的代码……
其他需要你详细说说你想怎么做和你的数据是怎样的

你似乎需要如下的代码将左边显示为满的右边的编号都用信息窗口显示出来……
Sub test()
Dim mycell As Range
'For Each mycell In ActiveSheet.Cells '这一行要进行全表的搜索速度会比较慢建议使用下面的限定范围
For Each mycell In ActiveSheet.Range("a:g")
If mycell.Value = "满" Then
If BH = "" Then
BH = BH & "： " & mycell.Offset(0, 1).Value
Else
BH = BH & "," & mycell.Offset(0, 1).Value
End If
End If
Next
MsgBox "这些标号全部已满" & BH
End Sub

祝你一切顺利！

热心网友时间：2023-11-17 02:49

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