Excel宏

问题：请问哪个大神
两个EXCEL表格A、B，都包含相同内容的列a（比如姓名），如何在A表中筛选出a列跟B表a列相同内容的行。
宏也行，函数也行？

答：
Dim lie1  As Integer
Dim lie2 As Integer

lie1 = 7   '此处填写列1的长度
lie2 = 3   '此处填写列2的长度

Dim i As Integer
Dim j As Integer
Dim str1 As String
Dim str2 As String
For i = lie1 To 1 Step -1
     Sheets("Sheet1").Select     '此处双引号内为表1的名称
    str1 = Range("A" & i).Text   '此处填写列1所在的列
    Sheets("Sheet2").Select       '此处双引号内为表2的名称
    For j = lie2 To 1 Step -1
       str2 = Range("A" & j).Text     '此处填写列2所在的列
       If str1 = str2 Then
        Sheets("Sheet1").Select     '此处填写列1所在的列
          Range("A" & i).FormulaR1C1 = ""    '此处填写列1所在的列
          Exit For
       End If
    Next
Next