求可自动为B列单元格粘贴数据添加前缀abc的宏/应用脚本

可以实现这个需求，以下是针对Excel的VBA解决方案：

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧工程资源管理器中，双击需要应用该功能的工作表（比如Sheet1）
3. 将以下代码粘贴到右侧的代码窗口中：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 检查修改的单元格是否在B列范围内
    If Not Intersect(Target, Me.Columns("B")) Is Nothing Then
        ' 关闭事件触发，避免循环执行
        Application.EnableEvents = False
        
        Dim cell As Range
        ' 遍历目标区域内的每个单元格
        For Each cell In Intersect(Target, Me.Columns("B"))
            ' 仅处理非空单元格，避免覆盖原有空值
            If cell.Value <> "" Then
                cell.Value = "abc" & cell.Value
            End If
        Next cell
        
        ' 重新开启事件触发
        Application.EnableEvents = True
    End If
End Sub

代码说明： #

• Worksheet_Change事件会在工作表单元格内容变化时触发（包括粘贴操作）
• Intersect(Target, Me.Columns("B"))用于精准判断修改范围是否涉及B列
• 关闭Application.EnableEvents是为了避免设置单元格值时再次触发Change事件，造成循环执行
• 遍历目标区域的每个单元格，为非空内容添加前缀"abc"

注意事项： #

• 保存文件时需选择.xlsm格式（启用宏的工作簿），否则宏会丢失
• 打开文件时需要启用宏才能让脚本生效

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