将原始表中等于指定值的单元格所在的行粘贴到新表中。特定情况下报错，求老师指点...

皮皮坦克

代码可以正常运行，但是当搜索的关键字为数字时，可以检索到时，只返回了标题行，这是为什么？
Sub 查找关键字并复制到新表中()
Dim rng As Range, arr1(), lh, gjz, i, j, k, brr(), czf
   
gjz = InputBox("", "请输入查询条件", "关键字只在一列出现，不能同时出现在多列")
arr1 = Sheet1.Range("a1").CurrentRegion
Set czf = Range(Cells(1, 1), Cells(UBound(arr1), UBound(arr1, 2))).Find(gjz, LookIn:=xlValues)
        If Not czf Is Nothing Then
            lh = czf.Column
            ReDim brr(1 To UBound(arr1), 1 To UBound(arr1, 2))
                For i = 1 To UBound(arr1)
                    If i = 1 Or arr1(i, lh) = gjz Then
                        j = j + 1
                        For k = 1 To UBound(arr1, 2)
                            brr(j, k) = arr1(i, k)
                        Next
                    End If
                Next
            Workbooks("胜利在望").Worksheets("sheet3").Range("a1").Resize(j, UBound(brr, 2)) = brr
        Else: MsgBox "未找到"
        End If
End Sub

蓝桥玄霜

Workbooks("胜利在望").Worksheets("sheet3").Range("a1").Resize(j, UBound(brr, 2)) = brr 改为：
Workbooks("胜利在望.xlsx").Worksheets("sheet3").Range("a1").Resize(j, UBound(brr, 2)) = brr

皮皮坦克

蓝桥玄霜 发表于 2018-8-6 13:58
Workbooks("胜利在望").Worksheets("sheet3").Range("a1").Resize(j, UBound(brr, 2)) = brr 改为：
Workb ...

这是为啥呢？

皮皮坦克

新改了一下搜索关键字所在单元格的方法，发现如果是文本格式的可以找到，数值列就不行，请老师指正

Sub 查找关键字并复制到新表中()
Dim rng As Range, arr1(), lh, gjz, i, j, k, brr(), czf
   
gjz = InputBox("", "请输入查询条件", "关键字只在一列出现，不能同时出现在多列")
arr1 = Sheet1.Range("a1").CurrentRegion
Set czf = Range(Cells(1, 1), Cells(UBound(arr1), UBound(arr1, 2))).Find(gjz, LookIn:=xlValues)
        If Not czf Is Nothing Then
            lh = czf.Column
            ReDim brr(1 To UBound(arr1), 1 To UBound(arr1, 2))
                For i = 1 To UBound(arr1)
                    If i = 1 Or arr1(i, lh) = gjz Then
                        j = j + 1
                        For k = 1 To UBound(arr1, 2)
                            brr(j, k) = arr1(i, k)
                        Next
                    End If
                Next
            Workbooks("胜利在望").Worksheets("sheet3").Range("a1").Resize(j, UBound(brr, 2)) = brr
        Else: MsgBox "未找到"
        End If
End Sub