VBA如何在没有.Select的情况下复制单元格的内容

Question

我正在编写一种方法,可以Target将单元格精确地粘贴到另一个单元格.该单元格是一个带有一些花式结构的运输标签.有没有办法可以做到？

本来我有这个:

Worksheets("Label").Range("A1").Value = Worksheets("Get Address").Range("A28").Value

它适用于纯文本.然而,我失去了我创建的样式,它们是不同的,因为在第一行之后,风格是不同的:

我也尝试使用Macro Recorder,我得到了一个使用的解决方案.Select,我读了这个问题,尽可能不使用它.我能做什么？

' Created by the Macro Recorder
Range("A28:A33").Select
Range("A33").Activate
Selection.Copy
Sheets("Label").Select
Range("A1").Select
ActiveSheet.Paste

Answer 1

Worksheets("Get Address").Range("A33").Copy _
       Destination := Worksheets("Label").Range("A1")

Answer 2

要复制和粘贴值,请使用以下内容

Worksheets("Label").Range("A1").value = _
   Worksheets("Get Address").Range("A33").value

本声明不会使用剪贴板