如何使用R2单元格存储的单元格地址返回原单元格并清除？

我完全懂你要实现的完整操作链啦——复制目标单元格、按需选择性粘贴内容，最后还要精准回到原单元格把它清空。结合你已经写的存地址到R2的逻辑，我给你整理了两种场景的解决方案，你可以根据自己的使用习惯选：

方案一：一键完成全流程（推荐） #

把复制、粘贴、清除全部整合到一个宏里，选中要复制的单元格后运行就能一步到位：

Sub CopyPasteClearOriginal()
    ' 1. 记录并复制当前选中的原单元格
    Dim originalCell As Range
    Set originalCell = ActiveCell
    originalCell.Copy
    
    ' 2. 将原单元格地址存入R2（保留你原来的需求）
    Range("R2").Value = originalCell.Address
    
    ' 3. 执行选择性粘贴操作
    ' 这里以「粘贴数值」为例，你可以根据需求替换粘贴类型：
    ' - 粘贴全部：xlPasteAll
    ' - 粘贴格式：xlPasteFormats
    ' - 粘贴公式：xlPasteFormulas
    ' 注意：把Range("B2")改成你实际要粘贴的目标单元格地址
    Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    ' 4. 取消复制模式（去掉单元格周围的虚线框，避免干扰后续操作）
    Application.CutCopyMode = False
    
    ' 5. 定位回原单元格并清除内容
    ' 如果需要连格式一起清除，把ClearContents换成Clear即可
    Range(Range("R2").Value).ClearContents
    
    ' 可选：清空R2的地址记录，避免下次运行宏时残留旧数据
    Range("R2").ClearContents
End Sub

方案二：分两步执行（适合手动选择粘贴目标的场景） #

如果你习惯先复制、手动选择粘贴位置完成粘贴，再单独清除原单元格，可以用这两个拆分的宏：

第一步：复制并记录地址的宏（保留你的现有逻辑） #

Sub CopyCellAndRecordAddress()
    ActiveCell.Copy
    ' 把原单元格地址存入R2
    Range("R2").Value = ActiveCell.Address
End Sub

第二步：粘贴完成后清除原单元格的宏 #

Sub ClearOriginalAfterPaste()
    ' 先检查R2是否有有效地址，避免报错
    If Range("R2").Value <> "" Then
        ' 定位到原单元格并清除内容
        Range(Range("R2").Value).ClearContents
        ' 清空地址记录
        Range("R2").ClearContents
    Else
        MsgBox "还没执行复制操作哦！请先运行复制宏记录原单元格地址~"
    End If
End Sub

小提示 #

• 如果你不确定粘贴类型对应的VBA常量，可以打开Excel的宏录制功能，手动执行一次选择性粘贴，然后查看录制的代码，就能找到对应的参数啦；
• 用ClearContents只会清除单元格的内容，格式会保留；如果需要连格式、批注等一起清除，换成Clear即可。

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