如何修改Excel VBA宏，通过输入框指定目标单元格实现多次粘贴值？

这里给你修改后的VBA代码，实现让用户手动选择粘贴目标单元格的功能，同时保留原有的值粘贴逻辑，还加了取消选择的容错处理：

Sub copypaste2()
    Dim targetRange As Range
    
    ' 让用户选择目标单元格/区域，Type:=8指定选择单元格类型
    On Error Resume Next
    Set targetRange = Application.InputBox( _
        Prompt:="请选择粘贴的目标单元格（可选择区域）", _
        Title:="选择目标位置", _
        Type:=8)
    On Error GoTo 0
    
    ' 如果用户取消选择，直接退出宏
    If targetRange Is Nothing Then Exit Sub
    
    ' 复制选定区域并粘贴值到目标位置
    Selection.Copy
    targetRange.PasteSpecial Paste:=xlPasteValues, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    ' 清除剪贴板，避免弹窗提示和复制边框残留
    Application.CutCopyMode = False
End Sub

关键改动说明 #

• 用Application.InputBox(Type:=8)替换了固定的Range("e22")，这个参数允许用户直接在工作表上点击选择单元格或区域，比手动输入地址更直观准确
• 加入了错误处理逻辑，当用户点击取消按钮时，宏会直接退出，避免出现运行错误
• 新增Application.CutCopyMode = False，清除剪贴板状态，解决Excel一直显示复制虚线边框的问题

内容的提问来源于stack exchange，提问作者Rick T.