Dim t As Table = Tables("表A") For Each r As Row In t.Rows Dim sa As String = "a发啊发士大夫1" Dim sb As String = r("第二列") Dim count As Integer = 0 If sa.Length >= sb.length Then Dim s As String = sa sa = sb sb = s End If For i As Integer = 0 To sa.Length - 1 If sb.Contains(sa(i)) Then count += 1 End If Next