Excel宏修改需求：实现鼠标选择目标单元格粘贴指定单元格值

修改后的完整代码 #

' 自定义粘贴宏：复制本工作簿F6的值，等待用户选择目标后粘贴
Sub PasteF6ValueToSelectedCell()
    ' 1. 明确指向宏所在的工作簿，读取F6单元格的值
    Dim sourceValue As Variant
    sourceValue = ThisWorkbook.Worksheets("Sheet1").Range("F6").Value ' 注：若F6不在Sheet1，替换为实际工作表名
    
    ' 2. 提示用户选择目标单元格
    Dim targetRange As Range
    On Error Resume Next ' 处理用户取消选择的情况
    Set targetRange = Application.InputBox( _
        Prompt:="请选择要粘贴值的目标单元格", _
        Title:="选择目标位置", _
        Type:=8) ' Type:=8 允许用户通过鼠标选择单元格/区域
    On Error GoTo 0
    
    ' 若用户选择有效区域，执行粘贴与格式设置
    If Not targetRange Is Nothing Then
        ' 粘贴值到目标位置
        targetRange.Value = sourceValue
        
        ' 应用原格式设置（可根据需求调整或删除）
        With targetRange
            .HorizontalAlignment = xlGeneral
            .VerticalAlignment = xlBottom
            .WrapText = True
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With
    End If
End Sub

关键修改说明 #

• 解决问题1：锁定宏所在工作簿
  用ThisWorkbook明确指代宏所在的文件，彻底避免因当前激活工作簿切换导致的引用错误。同时直接读取单元格值（而非复制粘贴），既高效又不会占用剪贴板。注意：如果F6不在默认的Sheet1，需替换代码中的工作表名称。

• 解决问题2：支持鼠标选择目标位置
  通过Application.InputBox(Type:=8)弹出选择对话框，允许用户用鼠标任意选择目标单元格（或区域）。添加错误处理逻辑，避免用户取消选择时宏报错终止。

执行流程 #

1. 宏运行后，先读取本工作簿F6的单元格值
2. 弹出对话框提示用户选择目标位置
3. 用户完成选择后，自动将值粘贴到目标单元格，并应用指定格式
4. 若用户取消选择，宏直接退出，无后续操作

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