主题：两个代码如何合并

Dim names1 As List(Of String) = DataTables("一一与一二对比").GetUniqueValues("", "在岗人员对比_一一年")
Dim names2 As List(Of String) = DataTables("一一与一二对比").GetUniqueValues("", "在岗人员对比_一二年")
Dim names3 As New List(Of String)
Dim names4 As New List(Of String)
For Each name As String In names1
    If Not names2.Contains(name) Then
        names3.add(name)
    End If
Next
For Each name As String In names2
    If Not names1.Contains(name) Then
        names4.add(name)
    End If
Next
For i As Integer = 0 To names3.Count - 1
    Tables("一一与一二对比").Rows(i)("增加") = names3(i)
Next
For i As Integer = 0 To names4.Count - 1
    Tables("一一与一二对比").Rows(i)("减少") = names3(i)
Next