做个按钮
For Each dr As DataRow In DataTables("表A").Select("") Dim str As String = dr("第一列") str = System.Text.RegularExpressions.Regex.Replace(str, "[^\u4e00-\u9fa5]", "") dr("第二列") = strNext