嘿，我来帮你搞定这个复制粘贴大区域时的截断问题！从你的描述来看，问题大概率出在两个地方：区域选择不完整和字符串拼接的长度限制，咱们一步步来修复：

问题根源分析 #

1. 区域选择失效：你原来用Range(Selection, Selection.End(xlDown))选区域，如果A列中间存在空行，End(xlDown)会直接停在空行的上一行，导致只选中了部分内容——这很可能是200行只粘贴70%的原因之一。
2. 字符串长度限制：VBA里的字符串变量有字符数上限（旧版是65535，新版虽有所提升但仍有限制），用i = i &...拼接大量单元格内容时，超过上限就会被截断，这是核心问题。

修改后的可靠代码 #

直接放弃字符串拼接的方式，改用区域复制粘贴，同时修正区域选择的逻辑：

Sub Copy_Paste()
    Dim sourceRng As Range
    ' 准确选中A2到A列最后一个非空单元格的区域（无视中间空行）
    Set sourceRng = Range("A2", Range("A" & Rows.Count).End(xlUp))
    
    ' 定义目标区域：从E7开始，匹配源区域的行数和列数
    Dim targetRng As Range
    Set targetRng = Range("E7").Resize(sourceRng.Rows.Count, sourceRng.Columns.Count)
    
    ' 按需选择粘贴类型：这里默认粘贴值，要保留格式就换成xlPasteAll
    sourceRng.Copy
    targetRng.PasteSpecial Paste:=xlPasteValues
    
    ' 清理剪贴板，避免占用内存
    Application.CutCopyMode = False
End Sub

关键改进点 #

• 精准选择源区域：Range("A" & Rows.Count).End(xlUp)会从A列最后一行往上找第一个非空单元格，不管中间有没有空行，都能完整选中所有有效内容。
• 直接区域复制：跳过字符串拼接环节，彻底避免长度限制导致的截断，这是处理大区域复制最稳妥的方式。
• 灵活粘贴选项：如果需要保留格式、公式或批注，把xlPasteValues换成对应的参数即可，比如：
  • xlPasteAll：粘贴所有内容（值、格式、公式等）
  • xlPasteFormulas：只粘贴公式
  • xlPasteFormats：只粘贴格式

内容的提问来源于stack exchange，提问作者Patrick O'Malley