Excel VBA复制Master区域并仅粘贴值到Paste工作表末尾的问题

正确代码实现 #

Private Sub CommandButton1_Click()
    Dim Lastrow As Long
    
    ' 更新Master表N3单元格，触发关联区域更新
    Sheets("Master").Range("N3") = Sheets("Master").Range("N3") - Sheets("Master").Range("N4")
    
    ' 获取Paste表最后一行的下一行行号（兼容所有Excel版本）
    Lastrow = Sheets("Paste").Range("A" & Sheets("Paste").Rows.Count).End(xlUp).Row + 1
    
    ' 复制目标区域后，仅粘贴值到目标位置
    Sheets("Master").Range("L13:AO17").Copy
    Sheets("Paste").Range("A" & Lastrow).PasteSpecial Paste:=xlPasteValues
    
    ' 可选：清除剪贴板，避免后续操作受影响
    Application.CutCopyMode = False
End Sub

错误写法分析 #

• 尝试写法一：把行号赋值和粘贴操作混写，Row是返回数值的属性，不能直接调用PasteSpecial方法，属于语法错误。
• 尝试写法二：Copy Destination:=...是一次性完成复制粘贴的简化语法，不能和PasteSpecial链式调用，两种语法逻辑冲突。

额外优化说明 #

用Sheets("Paste").Rows.Count代替硬编码的65536，可以兼容Excel 2007及以后的版本（这些版本的工作表行数远超过65536行）。

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