web-dev-qa-db-ja.com

VBA .Selectなしでセルのコンテンツをコピーする方法

Targetを取り、セルを別のセルに正確に貼り付けることができるメソッドを書いています。セルは、いくつかの凝ったフォーマットの出荷ラベルです。私にできる方法はありますか?

もともと私はこれを持っています:

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

プレーンテキストで機能しました。ただし、作成したスタイリングは失われました。最初の行の後にスタイルが異なるため、これらは異なります。

enter image description here

また、Macro Recorderを使用しようとしましたが、.Select、およびI この質問を読む 可能な限り使用しない。私に何ができる?

' Created by the Macro Recorder
Range("A28:A33").Select
Range("A33").Activate
Selection.Copy
Sheets("Label").Select
Range("A1").Select
ActiveSheet.Paste
12
George
Worksheets("Get Address").Range("A33").Copy _
       Destination := Worksheets("Label").Range("A1")
20
Tim Williams

値のみをコピーして貼り付けるには、次を使用します

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

このステートメントは、クリップボードを使用しません

7
sai baba