求助：如何将在另一张表格显示满足条件的数据

s451467819

我需要将A列的510F/511F/513F所对应的整行数据筛选到表2里，请教各位大佬如何做到？

老骥705664849

Sub shiaxuan()
rr = Array("510F", "511F", "513F")
ar = Sheet1.[a1].CurrentRegion
Dim br()
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
For s = 0 To UBound(rr)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) = Trim(rr(s)) Then
            n = n + 1
            For j = 1 To UBound(ar, 2)
                br(n, j) = ar(i, j)
            Next j
        End If
    Next i
Next s
With Sheet2
    .[a1].CurrentRegion = Empty
    .[a1].Resize(n, UBound(br, 2)) = br
End With
End Sub

老骥705664849

代码仅供参考，请自己测试看看