同一列内复制粘贴VBA代码报错求助：对象不支持该属性或方法

首先，咱们来拆解下你代码里的问题：

• 你用了Selection.Offset(New_Last, 0).Paste，但Offset返回的Range对象没有直接的Paste方法，这就是报错的核心原因。应该用PasteSpecial方法，或者更高效的直接赋值方式。
• 代码逻辑有点混乱：重复执行了Selection.Copy，而且目标区域的计算也不对——如果原区域是Z2:Z&New_Last，那要粘贴到它的正下方，Offset的偏移量应该是原区域的行数，而不是New_Last（因为New_Last是整个工作表的已用区域行数，不一定等于原区域的行数）。
• 用UsedRange.Rows.Count获取最后一行不太可靠，万一工作表前面有空白行，UsedRange会包含这些无效行，建议用Cells(Rows.Count, "Z").End(xlUp).Row来精准获取Z列的最后一行。

修正后的代码（针对Z列需求） #

这里提供两种方案，按需选择：

方案1：复制粘贴（保留格式、公式等）

Sub CopyRangeToEnd()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim sourceRng As Range
    Dim targetRng As Range
    
    ' 指定工作表
    Set ws = ThisWorkbook.Sheets("Project")
    
    ' 获取Z列最后一行（从Z2开始的有效数据行）
    lastRow = ws.Cells(ws.Rows.Count, "Z").End(xlUp).Row
    
    ' 定义源区域：Z2到Z列最后一行
    Set sourceRng = ws.Range("Z2:Z" & lastRow)
    
    ' 定义目标区域：源区域正下方，行数和源区域一致
    Set targetRng = ws.Range("Z" & lastRow + 1 & ":Z" & lastRow + sourceRng.Rows.Count)
    
    ' 复制粘贴（保留格式、公式等）
    sourceRng.Copy
    targetRng.PasteSpecial xlPasteAll ' 可以根据需求改成xlPasteValues只复制值
    
    ' 清除剪贴板
    Application.CutCopyMode = False
End Sub

方案2：直接赋值（仅复制值，速度更快）

如果只需要复制单元格的值，不需要格式或公式，直接赋值是更高效的方式：

Sub CopyValuesToEnd()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim sourceRng As Range
    Dim targetRng As Range
    
    Set ws = ThisWorkbook.Sheets("Project")
    lastRow = ws.Cells(ws.Rows.Count, "Z").End(xlUp).Row
    Set sourceRng = ws.Range("Z2:Z" & lastRow)
    
    ' 直接将源区域的值赋值给目标区域
    Set targetRng = ws.Range("Z" & lastRow + 1 & ":Z" & lastRow + sourceRng.Rows.Count)
    targetRng.Value = sourceRng.Value
End Sub

针对你最初的需求（复制C1:C5到C6:C10） #

如果你的实际需求是处理C列（示例里是C1:C5复制到C6:C10），可以用更简单的代码：

Sub CopyCRange()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Project")
    
    ' 复制C1:C5到C6:C10
    ws.Range("C1:C5").Copy ws.Range("C6:C10")
    
    ' 或者仅复制值
    ' ws.Range("C6:C10").Value = ws.Range("C1:C5").Value
End Sub

关键改进点总结 #

• 避免使用Selection：直接引用Range对象，减少因选中区域变化导致的错误。
• 精准获取最后一行：用Cells(Rows.Count, 列号).End(xlUp).Row替代UsedRange，避免无效行干扰。
• 使用正确的粘贴方法：用Range.PasteSpecial替代Selection.Offset(...).Paste，符合VBA对象模型的要求。

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