Excel VBA复制粘贴报错1004：单非空行区域大小不匹配咨询

嘿，作为VBA新手遇到这个问题太正常了——我当初也踩过一模一样的坑！咱们先拆解下这个错误的根源，再给你改好代码。

错误原因分析 #

你遇到的Runtime error 1004，本质是复制的单元格区域和粘贴的单元格区域尺寸不匹配。当工作表只有一行非空数据时，原代码大概率误选了过大的区域（比如整行），但粘贴到Master表时，目标区域的行数/列数和复制区域对不上，直接触发了报错。

修正后的代码 #

下面是调整后的完整代码，我加了详细注释，你可以直接替换原代码，完美解决单一行数据的问题：

Sub MockImportNewData()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    Dim masterWs As Worksheet
    Dim lastRowSource As Long
    Dim lastColSource As Long
    Dim lastRowMaster As Long
    
    ' 定义Master工作表（如果名字不对，改成你的实际表名）
    Set masterWs = ThisWorkbook.Worksheets("Master")
    
    ' 遍历工作簿中除了Master以外的所有工作表
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> masterWs.Name Then
            ' 获取数据源工作表的最后一行和最后一列（精准定位有数据的区域）
            lastRowSource = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
            lastColSource = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
            
            ' 跳过空表（避免无数据时触发错误）
            If lastRowSource < 1 Then GoTo NextSheet
            
            ' 获取Master表的最后一行（找到粘贴的起始位置）
            lastRowMaster = masterWs.Cells(masterWs.Rows.Count, "A").End(xlUp).Row
            ' 处理Master表为空的情况：如果第一行是空的，从第一行开始粘贴
            If lastRowMaster = 1 And masterWs.Range("A1").Value = "" Then
                lastRowMaster = 1
            Else
                lastRowMaster = lastRowMaster + 1
            End If
            
            ' 直接赋值代替复制粘贴（高效且彻底避免区域不匹配）
            masterWs.Range(masterWs.Cells(lastRowMaster, 1), _
                masterWs.Cells(lastRowMaster + lastRowSource - 1, lastColSource)).Value _
                = ws.Range(ws.Cells(1, 1), ws.Cells(lastRowSource, lastColSource)).Value
        End If
NextSheet:
    Next ws
    
    Application.ScreenUpdating = True
    MsgBox "数据合并完成！", vbInformation
End Sub

关键改进点 #

• 直接赋值代替复制粘贴：用Range.Value = Range.Value的方式，不仅运行速度更快，还彻底规避了复制粘贴时的区域尺寸冲突——VBA会自动匹配两个区域的大小。
• 精准获取数据范围：通过End(xlUp)和End(xlToLeft)准确锁定有数据的边界，不会选中多余的空行空列。
• 处理空白Master表：判断Master表是否为空，避免出现第一行空着的情况。
• 跳过空工作表：如果某个工作表没有数据，直接跳过，不会触发无效操作。

额外提示（如果需要保留格式） #

如果你坚持要用复制粘贴来保留格式，可以改成下面的写法，同样能解决单一行数据的问题：

' 复制精准的数据源区域
ws.Range(ws.Cells(1, 1), ws.Cells(lastRowSource, lastColSource)).Copy
' 仅粘贴值（需要格式的话把xlPasteValues改成xlPasteAll）
masterWs.Cells(lastRowMaster, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False ' 清除复制状态

这种方式复制的是精准的有数据区域，粘贴到单个单元格时，Excel会自动匹配区域大小，不会报错。

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