如果在 Y 列中匹配，则将文本添加到 X 列中的单元格

Question

我正在尝试执行以下操作：

我的文件有 2 列。

在 "A" 中是客户订购的产品的完整列表。

在 "C" 中是需要在 "A" 列中添加特定文本的产品列表，以防它们已被订购（遗憾的是无法在数据库中执行此操作） ).

不知道怎么结束宏：

Sub SEARCH2()

    Dim CompareRange As Variant, x As Variant, y As Variant

    Set CompareRange = Range("A1:A500")
    Set CompareRange2 = Range("C3:C500")
    For Each x In CompareRange2
        For Each y In CompareRange
            If x = y Then x ????? 

'THERE I WANT TO SAY ADD THE TEXT "EXAMPLE" TO THE CELL

        Next y
    Next x
End Sub

有人可以帮忙结束这个宏吗？

此致。

Answer 1

您必须将变量 x, y 声明为范围

Dim CompareRange As Variant, x As Range, y As Range
If x = y Then x = "EXAMPLE"

Answer 2

这是最好的猜测，但不清楚你在问什么。您不需要遍历两个范围。

Sub SEARCH2()

Dim CompareRange As Range, CompareRange2 As Range, x As Range, y As Range, v As Variant

Set CompareRange = Range("A1:A500")
Set CompareRange2 = Range("C3:C500")

For Each x In CompareRange2
    v = Application.Match(x, CompareRange, 0)
    If IsNumeric(v) Then
        x.Value = x.Value & " EXAMPLE"
    End If
Next x

End Sub

如果在 Y 列中匹配，则将文本添加到 X 列中的单元格

Add text to a cell in column X if match in column Y

excel

vba

text

add

cell