主题：[求助]求一行代码

Dim data() As String = {"A", "B", "C", "D", "E"}
For Each r As Row In Tables("表A").Rows
    If Array.IndexOf(data, r("第一列")) = -1 Then
        r("第二列") = "中转"
    Else
        r("第二列") = Nothing
    End If
Next

  这样试试!