![Excel:将单元格内容移动到某个单元格中的注释](https://linux22.com/image/1453633/Excel%EF%BC%9A%E5%B0%86%E5%8D%95%E5%85%83%E6%A0%BC%E5%86%85%E5%AE%B9%E7%A7%BB%E5%8A%A8%E5%88%B0%E6%9F%90%E4%B8%AA%E5%8D%95%E5%85%83%E6%A0%BC%E4%B8%AD%E7%9A%84%E6%B3%A8%E9%87%8A.png)
我需要将单元格中的文本内容转换为另一个单元格(左侧单元格)中的注释。我看到这个帖子,并且代码运行正常,但它将注释放在与文本内容相同的单元格中。
示例:我需要 B 列中的文本作为 A 列的注释。
答案1
选择包含数据的单元格(在你的情况下是 B 列中的单元格)
并运行这个简短的宏:
Sub CommentMaker()
Dim r As Range, v As String
For Each r In Selection
If r.Column <> 1 Then
If r.Text <> "" Then
v = r.Text
With r.Offset(0, -1)
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:=v
End With
End If
End If
Next r
End Sub
笔记: 这不会删除原始数据!