参考代码
For Each dr As DataRow In DataTables("表B").datarows If array.Indexof(dr("第二列").split(","), dr("第一列")) >= 0 Then dr("第三列") = dr("第一列") Else dr("第三列") = Nothing End IfNext