将文本附加到Excel中的现有目标单元格

我有一个基于标签号码的大型数据集：

tag | value 1 | value 2 | ... | value 20| comment | ------------------------------------------------------------ 01 | data | data | data | data | red | 02 | data | data | data | data | blue | 03 | data | data | data | data | purple | 04 | data | data | data | data | green | 04 | data | data | data | data | green | . . 03 | data | data | data | data | purple | 

我想检查重复值的“标记”列，如果find，附加单词“重复”的评论，没有使用额外的列进行计算。 对于上面的表格，结果是：

 tag | value 1 | value 2 | ... | value 20| comment | -------------------------------------------------------------------- 01 | data | data | data | data | red | 02 | data | data | data | data | blue | 03 | data | data | data | data | purple | 04 | data | data | data | data | green | 04 | data | data | data | data | green - duplicate | . . 03 | data | data | data | data | purple - duplicate | 

这可能吗？ 如果是这样，请举个例子。

Answer 1

如果你的数据是这样的：

那么这个短的macros应该这样做：

 Sub DupFinder() Dim wf As WorksheetFunction, i As Long Set wf = Application.WorksheetFunction For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row If wf.CountIf(Range(Cells(i, 1), Cells(1, 1)), Cells(i, 1).Value) > 1 Then Cells(i, "V").Value = Cells(i, "V").Value & " Duplicate" End If Next i End Sub 

这假设评论栏是列V