Excel使用VBA宏查询包含指定内容的值

现有一个EXCEL文件，其中有表1、表2（如图）。
我需要在表1跑一个命令，查找F列出生日期中2002开头的行，并且在表2中返回该出生日期的值，以及该出生日期所在行的其他字段（年级、班级、姓名），例如图2的状态。

Sub main()
x = Range("A65536").End(xlUp).Row
ReDim arr(1 To x, 1 To 5)
brr = Range("A1:E" & x)
For i = 2 To UBound(brr)
If Left(Cells(i, 5).Value, 4) = "2002" Then
k = k + 1
For j = 1 To 5
arr(k, j) = brr(i, j)
Next j
End If
Next i
Range("A1:E1").Copy Sheet2.Range("A1:E1")
Sheet2.Range("A2").Resize(k, 5) = arr
End Sub

方法1，用筛选里面的包含 输入2002* 就可以筛选出来 方法2，用辅助列写公式=LEFt(F3,4) 同样可以筛选出来 方法3，用VBA写一串代码 方法4，写数组公式 由上到下为由易变难