请老师解释并修改一下代码

界线

Sub zz()
    想实现模糊查询，从销项表取任意字符并返回到模糊查询结果到查询结果表格中，这段代码是网上搜的，可以查出数字，但不能查找文本。由于刚开始学习VBA，代码看不懂，请各位老师解释并能修改成在整个工作表模糊查找并返回一个结果列表。

Dim StrFH$, j%, k&, arr, brr()
     StrFH = InputBox("请输入关键字")
     arr = Sheets("销项票").Range("a2").CurrentRegion

    'Set arr = ActiveSheet.Range("A1").CurrentRegion  

     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))  'UBound(arr, 1) ：
       For i = 2 To UBound(arr)
        If arr(i, 2) Like "*" & StrFH & "*" Then
          k = k + 1
            For j = 1 To UBound(arr, 2)
              brr(k, j) = arr(i, j)
            Next
        End If
      Next
     Sheets("查询结果").Range("a3").CurrentRegion.Offset(2, 0).ClearContents  
     Sheets("查询结果").Range("a3").Resize(k, UBound(arr, 2)) = brr  

End Sub

界线

'Set arr = ActiveSheet.Range("A1").CurrentRegion  为误写，前面没注释符号

hourhand

附件仅供参考。

渡天使

代码没问题，不懂您是什么意思

界线

渡天使 发表于 2021-10-25 10:07
代码没问题，不懂您是什么意思

问题就是我查不出文本，查文本返回错误。查1-3位的数字可以。

界线

hourhand 发表于 2021-10-25 09:50
附件仅供参考。

谢谢老师，如果我要扩展到整个工作表模糊查询，如何写代码？

hourhand

界线 发表于 2021-10-25 20:38
谢谢老师，如果我要扩展到整个工作表模糊查询，如何写代码？

目前的代码已经是对工作表“销项票”进行全部已经有内容的单元格区域进行查询了。