如何根据单元格批注匹配输入字符串并获取及移动单元格值？

当然有可行的实现方法！考虑到Excel公式很难直接读取单元格批注内容，VBA（Visual Basic for Applications） 是最适合这个需求的工具，既能批量处理也能实现实时触发。下面给你两种实用的方案：

这个方案适合一次性处理所有符合条件的单元格，步骤如下：

1. 打开你的Excel文件，按下 Alt + F11 打开VBA编辑器
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」
3. 粘贴以下代码，根据你的实际需求修改变量值：

Sub MoveCellsByComment()
    Dim targetComment As String
    Dim sourceRange As Range
    Dim targetCell As Range
    Dim cell As Range
    Dim cmt As Comment
    
    ' 1. 配置你的参数
    targetComment = "指定输入字符串" ' 替换成你要匹配的批注内容
    Set sourceRange = ThisWorkbook.Sheets("Sheet1").Range("A1:C100") ' 替换成要扫描的单元格范围
    Set targetCell = ThisWorkbook.Sheets("Sheet2").Range("A1") ' 替换成目标起始单元格
    
    ' 2. 遍历扫描范围
    For Each cell In sourceRange
        Set cmt = cell.Comment
        ' 检查单元格是否有批注，且批注内容匹配
        If Not cmt Is Nothing Then
            ' 忽略大小写的匹配（如果需要严格匹配，去掉UCase）
            If UCase(cmt.Text) = UCase(targetComment) Then
                ' 将单元格值复制到目标位置
                targetCell.Value = cell.Value
                ' 可选：复制日期格式
                targetCell.NumberFormat = cell.NumberFormat
                ' 目标单元格下移一行，准备下一个匹配项
                Set targetCell = targetCell.Offset(1, 0)
                ' 可选：清空原单元格值（如果需要移动而不是复制）
                ' cell.Value = ""
            End If
        End If
    Next cell
    
    MsgBox "处理完成！共找到 " & (targetCell.Row - 2) & " 个匹配单元格"
End Sub

4. 修改代码里的targetComment、sourceRange和targetCell为你的实际信息，然后点击运行按钮（▶️）执行

如果你希望在选中单元格时自动判断批注是否匹配，并快速移动值，可以用工作表事件：

1. 在VBA编辑器中，双击左侧的目标工作表（比如Sheet1）
2. 在上方的下拉菜单中选择「Worksheet」，然后选择「SelectionChange」事件
3. 粘贴以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim targetComment As String
    Dim targetCell As Range
    Dim cmt As Comment
    
    targetComment = "指定输入字符串" ' 替换成匹配的批注
    Set targetCell = ThisWorkbook.Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) ' 目标表的最后空行
    
    If Target.Cells.Count = 1 Then
        Set cmt = Target.Comment
        If Not cmt Is Nothing Then
            If UCase(cmt.Text) = UCase(targetComment) Then
                If MsgBox("该单元格批注匹配，是否移动值到目标位置？", vbYesNo) = vbYes Then
                    targetCell.Value = Target.Value
                    targetCell.NumberFormat = Target.NumberFormat
                    Target.Value = "" ' 清空原单元格
                End If
            End If
        End If
    End If
End Sub

• 运行VBA前记得备份你的Excel文件，避免意外数据丢失
• 如果批注内容有空格或特殊字符，确保匹配字符串完全一致（或者用InStr函数实现模糊匹配）
• 若需要区分大小写，去掉代码中的UCase函数即可
• 保存文件时要选择「Excel启用宏的工作簿（*.xlsm）」格式，否则宏会被禁用

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