求助查询工作表！！！！！

driftwind

Private Sub ComboBox1_Change()
On Error Resume Next
    Dim xx()
    Dim zz(0)
    ww = ComboBox1.Value
    yy = Application.CountIf(Worksheets(2).Columns(2), "*" & ww & "*")
    If yy = 0 Then ComboBox1.List() = zz
    ReDim xx(yy - 1)
    k = -1
    For i = 2 To Worksheets(2).[b65536].End(xlUp).Row
        If Worksheets(2).Cells(i, 2).Value Like "*" & ww & "*" Then
            k = k + 1
            xx(k) = Worksheets(2).Cells(i, 1).Value
        End If
    Next i
    ComboBox1.List() = xx
    ComboBox1.DropDown
End Sub
各位大师 这些是在网上找到的  修改后已能在组合框查找客户名称  现在又有一个问题  我想查找对应名称的工作表并把工作表内容显示在  sheet1  怎么搞啊

wjb0503

谢谢分享，学习了