Dim t As Table = Tables("表A") Dim d As Double Dim str As String = "-1," For Each r As Row In t.rows If r("第二列") > "" AndAlso Double.TryParse(r("第二列"), d) = False Then str &= r("_Identify") & "," End If Next t.filter = "_Identify in (" & str.trim(",") & ")"