主题：一个晚上学一条公式

Tables("表b").Filter = ""
Dim flt As String
Dim str() As String
For Each r As Row In Tables("表b").Rows
    str = r("第一列").Split(",")   
    For Each s As String In str       
        If e.Table.Current("第一列") = s Then
            flt = flt & "'" & r("第一列") & "'" & ","           
        End If
    Next
Next

If flt > "" Then
   flt = "第一列 In (" & flt.TrimEnd(",") & ")"
   Tables("表b").Filter = flt

Else

   Tables("表b").Filter = (1 = 2)

End If