求助：VBA实现跨工作表粘贴值至首个空行（PasteSpecial失效）

你的代码改Paste为PasteSpecial后失效，核心问题是粘贴调用方式错误，加上原代码依赖Select/Activate的逻辑本身就不稳定。下面是修正后的完整方案：

问题根源 #

• 原代码用Select/Activate切换工作表和单元格，这种操作在VBA中极易因焦点变化出错
• 查找空行的逻辑有漏洞：如果C列中间有空行，Range("C5").End(xlDown)会提前停止；如果C5以下全为空，NumRows会变成整列行数，导致循环出错
• PasteSpecial需要直接在目标单元格上调用，而非用ActiveSheet.Paste的方式

修正后的代码 #

Sub CopyPasteToFirstEmptyRow()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim targetCell As Range
    
    ' 绑定源工作表与目标工作表
    Set wsSource = ThisWorkbook.Sheets("Sheet3")
    Set wsTarget = ThisWorkbook.Sheets("Sheet5")
    
    ' 定位Sheet5中C列从C5开始的首个空行
    Set targetCell = wsTarget.Range("C5").End(xlDown).Offset(1, 0)
    ' 处理C5以下全为空的极端情况
    If targetCell.Row < 5 Then Set targetCell = wsTarget.Range("C5")
    
    ' 复制Sheet3的A3单元格，粘贴值到目标位置
    wsSource.Range("A3").Copy
    targetCell.PasteSpecial Paste:=xlPasteValues ' 可按需修改粘贴类型
    ' 清除剪贴板，避免弹窗提示
    Application.CutCopyMode = False
End Sub

关键细节 #

• 粘贴类型自定义：需要粘贴值+格式就改成xlPasteAll，只粘贴公式用xlPasteFormulas，根据需求调整
• 空行判断优化：新增对C5以下全空的处理，确保不会定位到错误行
• 摒弃Select/Activate：直接通过工作表对象操作，代码更稳定，执行速度也更快

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