VBA模块选择性粘贴值功能报错，请求排查问题

核心问题 #

你的代码出现编译错误，主要是**Copy与PasteSpecial的语法使用错误**：VBA中不能将Copy方法通过下划线换行后直接链式调用PasteSpecial，两者需要分开执行。此外还有几个潜在问题会导致运行不稳定：

• 未声明变量，容易引发类型错误
• 依赖Activate切换工作表，代码鲁棒性差
• Rows.Count未指定工作表，可能引用错误的行数

修复后的代码（保留粘贴值逻辑） #

Option Explicit ' 强制变量声明，避免隐性错误

Sub Merge_Sheets()
    Dim mtr As Worksheet
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim targetRow As Long ' 存储目标行号，避免重复计算
    
    ' 设置合并目标工作表
    Set wb = ThisWorkbook
    Set mtr = wb.Worksheets("Master")
    
    ' 遍历所有工作表
    For Each ws In wb.Worksheets
        If ws.Name <> "Master" Then
            ' 计算目标工作表的下一个空行（指定mtr的Rows.Count，避免引用激活表）
            targetRow = mtr.Cells(mtr.Rows.Count, 1).End(xlUp).Row + 1
            
            ' 正确的复制粘贴值写法：分开执行Copy和PasteSpecial
            ws.Range("A5:P20").Copy
            mtr.Range("A" & targetRow).PasteSpecial Paste:=xlPasteValues
            
            Application.CutCopyMode = False ' 清除剪贴板状态
        End If
    Next ws
    
    mtr.Activate ' 可选：最后激活目标表
End Sub

更高效的替代方案（无需复制粘贴） #

直接赋值单元格值比复制粘贴更快，尤其适合大量数据场景：

Option Explicit

Sub Merge_Sheets_Fast()
    Dim mtr As Worksheet
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim targetRow As Long
    Dim sourceRange As Range
    
    Set wb = ThisWorkbook
    Set mtr = wb.Worksheets("Master")
    
    For Each ws In wb.Worksheets
        If ws.Name <> "Master" Then
            Set sourceRange = ws.Range("A5:P20")
            targetRow = mtr.Cells(mtr.Rows.Count, 1).End(xlUp).Row + 1
            
            ' 直接将源区域的值赋值给目标区域
            mtr.Range("A" & targetRow).Resize(sourceRange.Rows.Count, sourceRange.Columns.Count).Value = sourceRange.Value
        End If
    Next ws
    
    mtr.Activate
End Sub

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