1、被查找的内容:工作表"2022年日记账-06月"."C3"2、查找的区域:工作表"线路板2022收款明细"和工作表"覆铜板2022收款明细" 两个工作表的B列中3、只要定到那个位置就可以了 4、我尝试过的方法,我在网上查到的代码(如下所示:)这段代码只能查找到其中一个工作表的B列,能否在两个工作表中的B列都找一下并定位到呢?Sub 查询公司名称()''Dim StrFind As StringDim Rng As RangeStrFind = Trim(Range("C3"))If Trim(StrFind) <> "" ThenWith 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, TrueElseMsgBox "没有找到该单元格!"End IfEnd WithEnd IfEnd Sub
点击按钮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