Вставить, но сохранить форматирование пункта назначения

Question

привет новичок здесь, но помните, что вы когда-то тоже были.У меня возникли проблемы, вот мой код, но он сохраняет текстовый формат листа 1, когда я хочу, чтобы он был похож на текст листа 2 и формат ячейки

Private Sub CommandButton1_Click()
Sheets("sheet1").Range("A1:A4").SpecialCells(xlConstants).copy 
Sheets("sheet2").Range("A1:A4").End(xlUp)
End Sub

Answer 1

То, что вы ищете, это PasteSpecial - вот он, код очищен:

Private Sub CommandButton1_Click()

    Sheets("Sheet1").Range("A1:A4").Copy
    Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub