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