Как изменить код, чтобы сохранить форматирование ячейки назначения

Question

Недавно я использовал код, приведенный ниже:

Dim sht1, sht2 As Worksheet

Set sht1 = Worksheets("Sheet1")
Set sht2 = Worksheets("Table")

sht1.Range("K10").Copy sht2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
sht1.Range("G15").Copy sht2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)

End Sub

Я надеялся, что сообщество сможет посоветовать, как изменить его, чтобы разрешить ячейке назначения сохранять свое форматирование.

Любая помощь будет принята с благодарностью.Заранее спасибо.

Answer 1

Просто сделайте передачу значения, нет необходимости в Copy.

Обратите внимание, что sht1 на самом деле Variant, если вы специально не объявите его As Worksheet.

Dim sht1 As Worksheet, sht2 As Worksheet

Set sht1 = Worksheets("Sheet1")
Set sht2 = Worksheets("Table")

With sh2
    .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Value = sh1.Range("K10").Value
    .Cells(.Rows.Count, 2).End(xlUp).Offset(1).Value = sh1.Range("G15").Value
End With