如何通过Excel VBA将批注内容移至单元格并移除指定前缀文本

功能说明 #

• 遍历指定区域内所有带批注的单元格，提取批注文本
• 自动清除批注开头的Alvise Tran:前缀，自动修剪文本前后多余空格
• 将处理完成的文本写入对应单元格，支持选择处理后是否保留原批注
• 处理效果和示例中H3、H7、H11单元格展示效果一致

实现代码 #

Sub ExtractCommentToCell()
    Dim processRng As Range, cell As Range
    Dim commentContent As String
    Const REMOVE_PREFIX As String = "Alvise Tran:"
    
    ' 弹窗选择要处理的区域，默认选中当前鼠标框选的范围
    On Error Resume Next
    Set processRng = Application.InputBox("选择需要处理的单元格区域", "区域选择", Selection.Address, Type:=8)
    On Error GoTo 0
    If processRng Is Nothing Then Exit Sub
    
    For Each cell In processRng
        ' 跳过无批注的单元格
        If Not cell.Comment Is Nothing Then
            commentContent = cell.Comment.Text
            ' 匹配并移除开头的固定前缀
            If InStr(1, commentContent, REMOVE_PREFIX, vbTextCompare) = 1 Then
                commentContent = Trim(Mid(commentContent, Len(REMOVE_PREFIX) + 1))
            End If
            ' 写入处理后的内容到单元格
            cell.Value = commentContent
            ' 若需处理后删除原批注，移除下一行开头的单引号即可
            ' cell.Comment.Delete
        End If
    Next
    MsgBox "处理完成", vbOKOnly + vbInformation
End Sub

使用步骤 #

• 打开目标Excel文件，按Alt+F11快捷键打开VBA编辑器
• 在左侧项目资源管理器中右键点击当前工作簿名称，依次选择【插入】-【模块】
• 将上述代码完整粘贴到弹出的模块代码编辑窗口
• 按F5运行宏，在弹窗中选中需要处理的单元格区域，确认后即可自动完成处理

效果参考 #

内容的提问来源于stack exchange，提问作者Alvise