查询另存

xing_chen

老师，有簿，希望通过模糊查询和精准查询到名称。另存表格，簿中有代码，但结果不好，希望老师帮忙修改。谢谢

杨建营

，这个可以模糊查询。请楼主参考。

ZHLK

Sub 查询()
    Dim i&, j&, ss
    Dim arr, brr, sh
    ReDim arr(1 To 100, 1 To 8)
    ss = InputBox("请输入名称：", "提示")
   
    brr = Sheets("快递").[a1].CurrentRegion
    a = 1
    Sheets("查询").Rows("2:10000").Delete Shift:=xlUp
    For i = 2 To UBound(brr)
        If InStr(brr(i, 3), ss) > 0 Then
        a = a + 1
            Sheets("查询").Cells(a, 1) = a - 1
            For j = 2 To 8
                Sheets("查询").Cells(a, j) = brr(i, j)
            Next j
           Sheets("查询").Cells(a, 13) = Sheets("快递").Name
        End If
    Next
    Sheets("查询").[a1].CurrentRegion.Borders.LineStyle = 1

End Sub

cjc209

来个sql 查询         

xing_chen

杨建营 发表于 2023-3-22 10:17
，这个可以模糊查询。请楼主参考。

谢谢老师！运行如愿！

xing_chen

cjc209 发表于 2023-3-22 10:49
来个sql 查询

谢谢老师！运行如愿！看了你的代码，看来要花时间将现有的表格对照你的代码，改一下。届时要麻烦你了。

sxbjzjf110

参与一下。。。。

ykcbf1100

参与一下吧。。。

xing_chen

sxbjzjf110 发表于 2023-3-22 11:22
参与一下。。。。

谢谢老师！

xing_chen

ykcbf1100 发表于 2023-3-22 11:26
参与一下吧。。。

谢谢老师!运行如愿！