копировать и вставлять специальные с VBA в Excel

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

Перемещение значений по одному с передачей значения. Как следует из названия, передача значения не переносит форматы.

---

Это просто копирует 2 отдельные ячейки A4 & D23

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").Value
ws.Range("D" & lr).Value = ws.Range("D23").Value

End Sub

---

Если вы намеревались захватить весь диапазон A4:D23, затем

ws.Range("A4:D23").Copy
ws.Range("A" & lr).PasteSpecial xlPasteValues

ИЛИ

ws.Range("A" & lr).Resize(20, 4).Value = ws.Range("A4:D23").Value