VBA如何复制一个单元格的内容没有。select

我正在写一个方法,可以将Target贴到另一个单元格。 这个单元格是带有一些奇特格式的运输标签。 有什么办法可以做到吗?

本来我有这个:

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

它为纯文本工作。 然而我失去了我创造的造型,他们是不同的,因为在第一行之后,风格是不同的:

在这里输入图像说明

我也尝试使用macroslogging器,我得到了一个解决scheme使用。select,我读这个问题,不要使用它,只要有可能。 我能做什么?

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

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

复制和粘贴值,然后使用以下

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

这个声明不会使用剪贴板