Excel 2016中Selection.Cut失效：宏2013正常2016异常问题咨询

这个问题我碰到过好多次了，确实是Excel 2013和2016对剪贴板操作的底层处理逻辑不一样导致的！你原来的代码过度依赖Select、Selection和ActiveSheet.Paste这类交互性操作，这类操作在不同版本里容易因为剪贴板的延迟或者缓存机制出问题——尤其是2016之后Excel对剪贴板做了优化，可能导致Cut操作后原单元格内容没有立即清空，直接让你的循环提前判断到空值就终止了。

问题根源拆解 #

你原代码里的Selection.Cut + ActiveSheet.Paste流程，完全依赖Excel的剪贴板状态。2016版本中，剪贴板的异步处理可能让原单元格的内容没被及时清除，当你后续读取Cells(y,1)的值时，要么拿到旧内容导致循环多跑，要么误判为空让循环提前停。另外用Selection来给test赋值也很不稳定——要是操作过程中选区不小心变了，整个逻辑直接崩掉。

优化后的稳定代码 #

直接用Cut方法的Destination参数，彻底避开Select和剪贴板的依赖，这种写法在任何Excel版本里都能稳运行：

Sub NewMACRO()
    Dim y As Integer
    Dim row As Integer
    Dim test As String
    
    y = 1
    row = 1
    
    ' 直接读取单元格值，不依赖选区
    test = Cells(y, 1).Value
    
    Do While test <> ""
        ' 一步完成剪切+粘贴，无需手动选单元格
        Cells(y, 1).Cut Destination:=Cells(row, 1)
        y = y + 2
        
        Cells(y, 1).Cut Destination:=Cells(row, 2)
        y = y + 2
        
        Cells(y, 1).Cut Destination:=Cells(row, 3)
        y = y + 2
        
        ' 安全判断下一个待处理单元格是否为空
        If y > Cells(Rows.Count, 1).End(xlUp).Row Then
            test = ""
        Else
            test = Cells(y, 1).Value
        End If
        
        row = row + 1
    Loop
    
    Cells(1, 1).Select
End Sub

几个关键改进点 #

• 移除所有交互性操作：Select、Selection和ActiveSheet.Paste不仅运行慢，还极易受版本、用户操作干扰，能不用就不用
• 原子化剪切操作：Cut Destination:=是VBA官方推荐的单元格移动方式，底层不依赖剪贴板，操作更可靠，不会出现原单元格没清空的问题
• 直接读取单元格值：用Cells(y,1).Value给test赋值，完全避开选区变化的风险，判断空值更准确
• 增加边界防护：用Cells(Rows.Count,1).End(xlUp).Row获取A列最后一个非空单元格的行号，防止y超出数据范围导致错误

改完之后，不管是Excel 2013、2016还是更高版本，这个宏都会稳定运行，再也不会出现Cut后原单元格内容残留的问题了。

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