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

Question

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

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     |

我想查看＆＃39;标记＆＃39;重复值的列，如果找到，请附加单词＆＃39; duplicate＆＃39;注释，不使用额外的列进行计算。对于上表，结果将是：

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

如果您的数据如下：

然后这个短宏应该这样做：

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

列