☰

Excel：将单元格内容移动到注释

tag-icon • tag-icon microsoft-excel microsoft-excel-2007
Excel：将单元格内容移动到注释

我正在使用 Excel 2007。

我有一个项目列表，并希望获取某一列单元格中的信息并将其移动到该列单元格的注释中。

有没有一种方法可以做到这一点，而不需要手动剪切单元格内容，然后创建注释并粘贴文本？

答案1

以下 VBA 代码将选定单元格的文本值移至注释中。它仅在不存在任何现有注释时才有效

Sub Test()
    For i = 1 To Selection.Rows.Count
        For j = 1 To Selection.Columns.Count
            Selection.Cells(i, j).AddComment (Selection.Cells(i, j).Text)
        Next
    Next
End Sub

答案2

参考此ozgrid 上的线程用于自动将单元格值转换为单元格注释。需要一定程度的 VB 宏知识。

答案3

我扩展了给定的答案，以便不会为空单元格添加任何注释，而是移动而不是复制文本：

Sub Text2Comment()
    For i = 1 To Selection.Rows.Count
        For j = 1 To Selection.Columns.Count
            If Selection.Cells(i, j) <> "" Then
                Selection.Cells(i, j).AddComment (Selection.Cells(i, j).Text)
                Selection.Cells(i, j) = ""
            End If
        Next
    Next
End Sub

相关内容