如何逐行查看值是否已经存在?

PHRT1S | TEST_TEST_TEST_测试

宏之后:

第1列|第7列

理想情况下,我希望为以下场景做好准备:

第1列|第7列

PHRT1S | TEST_TEST_TEST(测试)

第1列|第7列

PHRT1S | TEST_TEST_TEST(TEST)(PHRT1S)

如果第1列的值已经存在,则跳过将第1列的值附加到第7列,而不是仅通过单个参数来识别。

With xlSheet


    LastRow = xlSheet.UsedRange.Rows.Count
    Set target = .Range(.Cells(15, 9), .Cells(LastRow, 9))
    values = target.Value

    Set ptype=.Range(.Cells(15,6),.Cells(LastRow,6))
    pvalues=ptype.Value

    For i = LBound(values, 1) To UBound(values, 1)
    'if Statement for test keywords
    If InStr(1,pvalues(i,1),"Package")= 0 AND InStr(1,pvalues(i,1),"Roadblock")= 0 Then 
    If InStr(1,values(i,1),"(")=0 Then
    values(i, 1) = values(i, 1) & "(" & .Cells(i + 15 - LBound(values, 1), 3) & ")"
    End If 
    End If
    Next
    target.Value = values
End With