Excel宏实现剪切后仅粘贴值：自定义宏粘贴空值问题求助

你遇到的问题核心是：Selection.Copy复制的是单元格的引用关联而非直接的值，当你立刻清空原单元格后，剪贴板里的引用指向空单元格，自然粘贴出空值。下面提供两种可行的解决方法：

方法一：一步到位的剪切粘贴值宏（推荐） #

直接完成「剪切值-粘贴值」的完整流程，无需分步操作，彻底避免剪贴板引用问题：

Sub CutPasteValuesOnly()
    Dim sourceRange As Range
    Dim targetRange As Range
    
    ' 校验是否选中了源区域
    If TypeName(Selection) <> "Range" Then
        MsgBox "请先选中要剪切的单元格区域！", vbExclamation
        Exit Sub
    End If
    Set sourceRange = Selection
    
    ' 让用户选择目标区域的起始单元格
    On Error Resume Next
    Set targetRange = Application.InputBox("请选择目标区域的起始单元格：", Type:=8)
    On Error GoTo 0
    
    If targetRange Is Nothing Then Exit Sub
    
    ' 将源区域的值直接写入目标区域（自动匹配行列数）
    targetRange.Resize(sourceRange.Rows.Count, sourceRange.Columns.Count).Value = sourceRange.Value
    
    ' 清空源区域的内容
    sourceRange.ClearContents
End Sub

使用方式：选中要剪切的区域，运行该宏，然后选择目标起始单元格即可完成操作。

方法二：分步操作的宏（适配你的需求） #

如果必须保留「复制清空-粘贴值」的分步逻辑，可以通过全局变量暂存值，完全脱离剪贴板依赖：

1. 首先在VBA模块的顶部声明全局变量（需放在所有Sub之外）：

Private copiedValues As Variant

2. 修改「复制清空」宏：

Sub CopyAndErase()
    If TypeName(Selection) <> "Range" Then
        MsgBox "请选中单元格区域！", vbExclamation
        Exit Sub
    End If
    ' 将选中区域的值存入全局变量
    copiedValues = Selection.Value
    ' 清空源区域内容
    Selection.ClearContents
End Sub

3. 修改「粘贴值」宏：

Sub PasteValuesOnly()
    If TypeName(Selection) <> "Range" Then
        MsgBox "请选中目标单元格！", vbExclamation
        Exit Sub
    End If
    ' 检查是否有暂存的值
    If IsEmpty(copiedValues) Then
        MsgBox "请先执行CopyAndErase宏！", vbExclamation
        Exit Sub
    End If
    ' 将暂存的值写入目标区域（自动匹配行列数）
    Selection.Resize(UBound(copiedValues, 1), UBound(copiedValues, 2)).Value = copiedValues
    ' 清空变量，防止重复粘贴
    Erase copiedValues
End Sub

使用方式：先选中源区域运行CopyAndErase，再选中目标起始单元格运行PasteValuesOnly即可。

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