VBA合并多工作簿报错：无法粘贴，请选择粘贴区域单个单元格

嘿，这个问题我之前碰到过好多次啦！你遇到的粘贴错误，本质是批量处理第二个文件时，粘贴区域的选择和复制区域不匹配导致的——要么是没找准每次粘贴的起始位置，要么是复制/粘贴的逻辑没理顺。下面给你修复后的完整代码，再跟你唠唠关键问题在哪：

修复后的代码 #

Sub Select_File_Click()
    Dim lngCount As Long
    Dim wbSource As Workbook
    Dim wsTarget As Worksheet
    Dim lastRowTarget As Long
    Dim lastRowSource As Long
    Dim lastColSource As Long
    
    ' 先把目标工作表定下来，就是当前工作簿的Sheet1
    Set wsTarget = ThisWorkbook.Sheets("Sheet1")
    ' 清空A:D列（保留你原来的需求）
    wsTarget.Range("A:D").Clear
    
    ' 弹出文件选择框，允许多选文件
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .Filters.Add "Excel文件", "*.xlsx;*.xls" ' 你可以根据需要加其他格式，比如*.xlsm
        If .Show = -1 Then ' 用户选了文件才继续
            ' 挨个处理选中的每个文件
            For lngCount = 1 To .SelectedItems.Count
                ' 以只读模式打开源文件，避免锁定文件让其他人用不了
                Set wbSource = Workbooks.Open(.SelectedItems(lngCount), ReadOnly:=True)
                
                ' 先找到源文件第一个工作表的最后一行和最后一列，确定要复制的范围
                With wbSource.Sheets(1)
                    lastRowSource = .Cells(.Rows.Count, "A").End(xlUp).Row
                    lastColSource = .Cells(1, .Columns.Count).End(xlToLeft).Column
                End With
                
                ' 再找目标工作表A列的最后一行，确定这次粘贴从哪开始
                lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row
                ' 如果是第一个文件，而且A1是空的，就从A1开始贴
                If lastRowTarget = 1 And wsTarget.Range("A1").Value = "" Then
                    lastRowTarget = 0
                End If
                
                ' 复制源文件的数据区域，直接贴到目标工作表的起始单元格
                ' 这里Excel会自动匹配复制区域的大小，不用手动选粘贴范围，就不会报错啦
                wbSource.Sheets(1).Range(wbSource.Sheets(1).Cells(1, 1), wbSource.Sheets(1).Cells(lastRowSource, lastColSource)).Copy _
                    Destination:=wsTarget.Cells(lastRowTarget + 1, 1)
                
                ' 处理完就关掉源文件，别占内存
                wbSource.Close SaveChanges:=False
            Next lngCount
            MsgBox "所有文件都复制完啦！", vbInformation
        End If
    End With
    
    ' 释放变量，好习惯
    Set wbSource = Nothing
    Set wsTarget = Nothing
End Sub

为啥之前会报错？ #

你原来的代码大概率是这几个问题：

• 没找准粘贴起始位置：第二次粘贴时可能还是从A1开始，或者选了和第一次一样的区域，导致复制区域和粘贴区域大小对不上；
• 复制范围不明确：可能复制了整个工作表（包括大量空行空列），粘贴时Excel没法匹配；
• 没及时关源文件：多个文件打开着，容易导致上下文混乱，引发奇怪的错误。

额外小提示 #

如果你只想复制A:D列（和你最初清空的区域对应），可以把复制的代码改成这样：

wbSource.Sheets(1).Range("A1:D" & lastRowSource).Copy _
    Destination:=wsTarget.Cells(lastRowTarget + 1, 1)

这样就只会复制你需要的列啦～

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