查找两个单元格是否匹配并替换其中一个单元格中的文本

Question

我有大量的数据转储，如果两个特定的单元格匹配，则需要替换文本。我正在寻找一个公式或可点击的选项，以便我可以记录这作为一个宏。

示例文本；

区域同级定位

MP /增强型产品

粉末冶金浆料

粉末冶金浆料

MP /

此列表对每个区域和位置组合都有数百个值。我需要找到标记为AD的任何位置，并替换从MP到SEC的左边单元格中的文本。我已经抓了几个小时的头了，甚至连结果都找不到。

Answer 1

如果A列是区域，B列是位置，为什么不只是=IF($B1="AD", "SEC", $A1)

Answer 2

这个宏实现了上面提到的替换，从Location开始，然后在该位置下的第一个空单元格停止。它是编写的，这样您就可以在适当的单元格地址中放置"Location“和"Area”标头。

Sub SwapMPtoSECinAD()

Dim AreaCell As Range
Dim LocCell As Range
Dim ColDiff As Long

Set AreaCell = Range("A1") ' <-- Area header cell
Set LocCell = Range("B1") ' <-- Location header cell
ColDiff = AreaCell.Column - LocCell.Column

Set LocCell = LocCell.Offset(1, 0)
While Not IsEmpty(LocCell)
    If Trim(LocCell.Text) = "AD" Then
        If Trim(LocCell.Offset(0, ColDiff).Text) = "MP" Then _
                    LocCell.Offset(0, ColDiff).Value = "SEC"
    End If
    Set LocCell = LocCell.Offset(1, 0)
Wend

End Sub

Answer 3

所以你只需要把MP\AD替换成MP\SEC

=IF((AND(A5>="MP", B5>="AD")), "SEC", A5)

无论如何，你的两个条件是匹配的。

向右拉一列并拖动。然后复制并粘贴到位。