求EXCEL高手把表格内的某一列内容全部变为批注，急等

Question

求EXCEL达人帮忙把我的表格内的一行内容全部改为批注。在线等，急！！麻烦联系我请用企鹅号：2051341630

Answer 1

比如将A1:F1设置为批注

 

 

Sub 添加批注()
'将A1:f1单元格内容设置为该格批注
Dim t As String
For i = 1 To 6
    t = Cells(1, i)
    Cells(1, i).AddComment (t)
Next
End Sub

追问

对不起我是废柴，没有懂_(:з」∠)_这些代码应该是粘贴在哪里的呢

追答

在表格里，右键SHEET名

查看代码

复制代码

 

按ALT+F8执行

追问

原来是这样！！！！非常感谢！！！！那个还想请问一下，如果是列的话，比如A1到A80，代码是怎样的呢？对不起我完全看不懂代码ORZ想麻烦您写一下我可以直接嵌套……麻烦您了，跪谢！！

追答

比如将A1:a10设置为批注

Sub 添加批注()
'将A1:a10单元格内容设置为该格批注
Dim t As String
For i = 1 To 10
t = Cells(i, 1)
Cells(i,1i).AddComment (t)
Next
End Sub