[复制并粘贴Excel中的VBA特殊功能

Question

我编写了这段代码，并且一直给我一个错误，即复制区域和粘贴区域的大小不同。但是，如果我仅使用复制粘贴方法，则效果很好。您能帮我吗？

Sub copy()
eRow = Sheet5.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Sheet4.Range("a4", "d23").copy
Sheet5.Cells(eRow, 1).PasteSpecial (xlPasteValues)
End Sub

Answer 1

通过值转移一一移动值。顾名思义，值传递不会保留格式。

Sub copy_me()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
Dim lr As Long

lr = ws.Range("A" & ws.Rows.Count).End(xlUp).Offset(1).Row

ws.Range("A" & lr).Value = ws.Range("A4")
ws.Range("D" & lr).Value = ws.Range("D23")

End Sub