三九问答精心收集互联网各类最新经典问题,致力为网友提供免费答疑平台!登录注册

当前位置:首页 > 职场问题 > 提问问题

VBA同时查找两个工作表的B列并定位到找到的地址

提问时间:2022-06-23 07:22 | 来自:三九问答

浏览次数:315次

1、被查找的内容:工作表"2022年日记账-06月"."C3"

2、查找的区域:工作表"线路板2022收款明细"和工作表"覆铜板2022收款明细" 两个工作表的B列中

3、只要定到那个位置就可以了

 

4、我尝试过的方法,我在网上查到的代码(如下所示:)

这段代码只能查找到其中一个工作表的B列,能否在两个工作表中的B列都找一下并定位到呢?

Sub 查询公司名称()

'

'

Dim StrFind As String

Dim Rng As Range

StrFind = Trim(Range("C3"))

If Trim(StrFind) <> "" Then

With Sheets("线路板2022收款明细").Range("B:B")

Set Rng = .Find(What:=StrFind, After:=.Cells(.***.count), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

If Not Rng Is Nothing Then

***.goto Rng, True

Else

MsgBox "没有找到该单元格!"

End If

End With

End If

End Sub


推荐答案解决时间:2022-06-23 08:24

点击按钮1:Sub按钮1_Click()Dimxlb%,ftb%xlb=***.iferror(***.match(Range(C3),Range(线路板2022收款明细!B:B),0),0)ftb=***.iferror(***.match(Range(C3),Range(覆铜板2022收款明细!B:B),0),0)Ifxlb=0Andftb=0ThenMsgBox俩工作表B列都没有——&Range(C3)Ifxlb=0Andftb0Then_MsgBox“线路板2022收款明细”工作表B列都没有——&Range(C3)&_Chr(10)&Chr(13)&_“覆铜板2022收款明细”工作表B列有——&Range(C3),在第&ftb行Ifxlb0Andftb=0Then_MsgBox“线路板2022收款明细”工作表B列有——&Range(C3),在第&xlb行&_Chr(10)&Chr(13)&_“覆铜板2022收款明细”工作表B列没有——&Range(C3)Else_MsgBox“线路板2022收款明细”工作表B列有——&Range(C3),在第&xlb行&_Chr(10)&Chr(13)&_“覆铜板2022收款明细”工作表B列有——&Range(C3),在第&ftb行EndSub

站长郑重提示:以上答案均来自互联网,仅其代表个人观点,请谨慎参阅。

本页地址: 复制网址