关于批注的问题，望各位大佬提供解决思路或方案，谢谢！

anson

把B列的数值放到a列相同名字的批注里边，望各位大佬帮忙，谢谢！

ykcbf1100

加批注。。。

ykcbf1100

加批注。。。

1. Sub ykcbf()   '//2024.12.10
   
2.     With Sheets("Sheet1")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         arr = .[a1].Resize(r, 2)
   
5.         For i = 2 To UBound(arr)
   
6.             Set Rng = .Cells(i, 1)
   
7.             If Not Rng.Comment Is Nothing Then
   
8.                 Rng.ClearComments
   
9.             End If
   
10.             Rng.AddCommentThreaded (arr(i, 2))
    
11.         Next
    
12.     End With
    
13.     MsgBox "OK！"
    
14. End Sub
    

复制代码

dambcer

usedrange

参与学习。。。。。

anson

dambcer 发表于 2024-12-10 08:31

如果要把批注上第一个数值的上面加一些字符的话上不重复的，要怎样处理？刚用试了一下在v=cells(i,2)上加了一些字符，例如：v = "cc" & vbCrLf & Cells(i, 2)之后显示出来的结果是批注上每个数值的上面都有cc的字符，可以只要一个cc字符，下面的是数值呢

anson

ykcbf1100 发表于 2024-12-10 07:08
加批注。。。

老师，07版本可能没有AddCommentThreaded 这个吧，运行时提示对象不支持

ykcbf1100

anson 发表于 2024-12-10 11:15
老师，07版本可能没有AddCommentThreaded 这个吧，运行时提示对象不支持

换个写法吧。

ykcbf1100

改一下，通用性好一点。

1. Sub ykcbf()   '//2024.12.10   加批注
   
2.     With Sheets("Sheet1")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         arr = .[a1].Resize(r, 2)
   
5.         For i = 2 To UBound(arr)
   
6.             Set Rng = .Cells(i, 1)
   
7.             If Not Rng.Comment Is Nothing Then
   
8.                 Rng.ClearComments
   
9.             End If
   
10.             Rng.AddComment
    
11.             Rng.Comment.Text Text:=CStr(arr(i, 2))
    
12.         Next
    
13.     End With
    
14.     MsgBox "OK！"
    
15. End Sub
    

复制代码

gwjkkkkk