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

时间:2019-05-15 11:41:23

标签: excel vba

我希望我的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

0 个答案:

没有答案