主题：[求助]用代码批量更改数据

19楼的数据有戏的

For Each dr As DataRow In DataTables("申请表").DataRows
    dr("乡名") = dr("乡名").Replace("湖南省 湘西土家族苗族自治州 花垣县 ","")
Next

For Each dr As DataRow In DataTables("申请表").DataRows
    If dr.IsNull("乡名") = False Then
        If dr("乡名").Split(" ").Length > 1 Then
            dr("村名") = dr("乡名").Split(" ")(1)
            dr("乡名") = dr("乡名").Split(" ")(0)
        Else
            dr("村名") = dr("村名").Replace(dr("乡名"),"")
        End If
    End If
Next