如何查看值是否已经在那里逐行存在？

macros观之前：

第1列| 第7栏

PHRT1S | TEST_TEST_TEST_TEST

MacrO之后：

第1列| 第7栏

PHRT1S | TEST_TEST_TEST_TEST（PHRT1S）

但是，如果即使没有附加ID但存在random（），如果存在（），macros将跳过逻辑的原因。

理想情况下，我想为这种情况做好准备：

macros观之前

第1列| 第7栏

PHRT1S | TEST_TEST_TEST（TEST）

macros观之后

第1列| 第7栏

PHRT1S | TEST_TEST_TEST（TEST）（PHRT1S）

如果第1列的值已经存在，则跳过将第1列的值附加到第7列，而只是通过单一假设来识别。

我的macros如下：

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 

Answer 1

这不是为你做这个工作吗？ If Instr(values(I,1),.Cells(i + 15 - LBound(values, 1), 3)) = 0 Then ，意思是代替查找一个括号，确保types还没有被添加。