Excel VBA Range错误：数据复制至模板第5行却到第55行

我看了你的代码，问题根源出在粘贴目标单元格的引用上！你写的wsDest.Range("A5" & pasterow)会把"A5"和pasterow的数值直接拼接——比如你的模板前4行有数据，计算后pasterow的值是5，拼接后就变成了"A55"，这就是数据跑到第55行的原因！

问题拆解 #

你的pasterow计算逻辑是对的：

pasterow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row

这段代码会找到目标工作表A列最后一行数据的下一行，也就是你想要的第5行。但粘贴时错误的字符串拼接，把正确的起始行地址搞成了错误的位置。

修正后的代码 #

Option Explicit
Sub GenerujD5()
    Dim xWb As Workbook
    Dim path As String
    Dim wsCopy As Worksheet
    Dim wsDest As Worksheet
    Dim copylastrow As Long
    Dim pasterow As Long
    
    path = "C:\pc2\export\export.xls"
    ' 显式赋值源工作簿，方便后续关闭
    Set xWb = Workbooks.Open(path)
    Set wsCopy = xWb.Worksheets("export")
    Set wsDest = ThisWorkbook.ActiveSheet
    
    copylastrow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row
    pasterow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
    
    ' 直接赋值替代复制粘贴，更高效且不占用剪贴板
    wsDest.Range("A" & pasterow & ":M" & pasterow + copylastrow - 2).Value = _
        wsCopy.Range("A2:M" & copylastrow).Value
        
    ' 关闭源工作簿，避免后台残留
    xWb.Close SaveChanges:=False
End Sub

额外优化说明 #

1. 修正目标地址：用"A" & pasterow替代错误的"A5" & pasterow，正确指向第5行的A列起始位置。
2. 直接赋值更高效：放弃Copy/PasteSpecial，直接将源区域的值赋值给目标区域，运行速度更快，还不会干扰剪贴板内容。
3. 显式管理工作簿：把打开的源工作簿赋值给xWb，最后关闭它，避免文件在后台一直打开。

如果你的模板固定从第5行开始粘贴，也可以把pasterow直接写成pasterow = 5，这样代码更简洁，但动态计算的方式更灵活，适合后续模板可能添加行的场景。

内容的提问来源于stack exchange，提问作者Know-nothing