excel - Excel将单元格值匹配到注释中

Question

我希望我的 excel 自动将匹配的单元格值转换为注释。在工作表 1 中，我在第一行“A1”到“L1”中设置了移动品牌名称，在工作表 2 中，第一列 A 具有相同的移动品牌名称集，但该值在同一列和列中重复B 记下购买手机的客户的姓名。

如果移动品牌名称的单元格值在两张表中匹配。然后它应该在 sheet2，B 列中检索客户名称，并将其转换为“A1”到“L1”的第一行中的注释。请任何人告诉我任何可能的代码。

此代码可帮助我在 sheet1 的第一行添加注释，但我需要 B 列中具有匹配单元格值的确切值。

Sub test()
    Dim rngDB As Range, rngComent As Range
    Dim rng As Range
    Dim cm As Comment, i as integer
    Set rngComent = Sheets(1).Range("a1:l1")
    Set rngDB = Sheets(2).Range("b1:b20")

    For Each rng In rngComent
        i = i + 1
        If Not rng.Comment Is Nothing Then
            rng.Comment.Delete
        End If
        Set cm = rng.AddComment
        With cm
            .Visible = False
            .Text Text:=rngDB(i).Value
        End With
    Next rng

标签： excelvba