数据提取问题

宿舍管理

根据A2输入的工单号，提取sheet1表格中的相同工单号下用户号数据，如果一个工单号下只有一个用户号则直接在B2显示，如果有多个用户号时可以选取需要的用户号显示在B2，要求可以自己选择需要的一个，不是公式默认提取的一条

chzsh

Sub chaxun()

Application.EnableEvents = False '关闭工作表事件
    Sheets(2).Range("b2:b10000") = "" '清空原有的数据
    Dim x%, arr1, y%, MyStr$, arr2(1 To 10000, 1 To 2)
    Dim m%, n%, k%
    MyStr = Sheets(2).Range("a2")
    Application.ScreenUpdating = False '关闭屏幕刷新
        arr1 = Sheets(1).UsedRange '把工作表区域装到数组arr1里
        For y = 2 To UBound(arr1, 1) '循环数组arr1的行
            If arr1(y, 1) = MyStr Then '把数组arr1第2列的满足条件装到数组arr2
                k = k + 1
                    arr2(k, 1) = arr1(y, 2)
            End If
        Next y
    Application.ScreenUpdating = True '打开屏幕刷新
    On Error GoTo 100 '由于所有的表里一个也不找不到,报错,跳到100
    Sheets(2).[b2].Resize(k, 1) = arr2 '把数组arr2读出来
    Application.EnableEvents = True '打开工作表事件
    Exit Sub
100:
    Application.EnableEvents = True
    MsgBox "亲，不好意思，表中查不到" & MyStr
End Sub

乐铁松

哈哈，不需要公式提取的，就不用写公式了，最好的办法就是自己找。

feilanga

A列输入查询值，点击B列

lushang2018

lushang2018

试一试，试一试

grf1973

就是一个多级菜单的显示问题。

grf1973

。。。。。。。。。。

宿舍管理

好的，谢谢大家