2个回答
展开全部
要实现这个,需要使用VBA.
先在工作表中添加一个按钮,方法为在菜单栏空白处用鼠标右键唤出菜单选择界面,选中控件工具箱。再点击控件工具箱中的按钮,在工作表中画一个按钮。
然后右键点按钮,在弹出菜单中选择查看代码,然后将以下代码复制进去:
Private Sub CommandButton1_Click()
Dim t As String
For Each c In Range("A:A") '这里假设第一列是在A列中
If c.Value <> "" And c.Offset(0, 1).Value <> "" Then
t = c.Offset(0, 1).Value
If c.Comment Is Nothing Then
c.AddComment Text:=t
End If
End If
Next
End Sub
复制完后你看到的代码窗口中的内容应该跟上面一样。
然后点控件工具箱中第一个三角板图标退出设计模式,再单击刚才画的按钮,就OK了。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询