如果其他两列匹配，则将一列中的值匹配到另一列

Question

我有两个列表，一个在 excel 中像这样有附加值，Col2 是空的

Col1 Col2 Col3 Col4
xyz       xxx  111
xxx       xzy  312 
xzy       xyz  523
...       ...  ...

我想检查 Col1 和 Col3 的匹配项，如果 Col1 和 Col3 分别匹配到 Col2 上的匹配行，或者至少对齐这些匹配项而不会弄乱 Col3 和 Col 之间的关系，则将值从 Col4 复制到 Col2。

所以我的最终结果应该是这样的：

Col1 Col2 Col3 Col4
xyz  523  xxx  111
xxx  111  xzy  312 
xzy  312  xyz  523
...  ...  ...  ...

或者我们可以忽略 Col2 并像这样对齐它

Col1 Col2 Col3 Col4
xyz       xyz  523
xxx       xxx  111 
xzy       xzy  312
...       ...  ...

我尝试了几种方法，例如 VLOOKUP 等，但都失败了。

解决了！解决了类似的问题here

Answer 1

如果有人想为此使用代码，这里有一些简短的代码来完成 OP 正在寻找的两个最终结果选项：

选项 1 - 将匹配值放在第 2 列中

Sub Test()

Dim LastRow As Long
Dim i As Long, j As Long

LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Application.ScreenUpdating = False
With ActiveSheet
    For i = 1 To LastRow
        For j = 1 To LastRow
            If .Cells(j, 3).Value = .Cells(i, 1).Value Then .Cells(i, 2).Value = .Cells(j, 4).Value
        Next j
    Next i
End With
Application.ScreenUpdating = True

End Sub

选项 2 - 重新排列第 3 列和第 4 列

Sub Test2()

Dim LastRow As Long
Dim i As Long, j As Long

LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Application.ScreenUpdating = False
With ActiveSheet
    For i = 1 To LastRow
        For j = 1 To LastRow
            If .Cells(j, 3).Value = .Cells(i, 1).Value And j <> i Then
                .Range(.Cells(j, 3), .Cells(j, 4)).Cut
                .Range(.Cells(i, 3), .Cells(i, 4)).Insert
                Exit For
            End If
        Next j
    Next i
End With
Application.ScreenUpdating = True

End Sub

请注意，如果您删除第 2 列，则需要为此更改对第 3 列和第 4 列的引用。