13

Targetセルを別のセルに正確に貼り付けることができるメソッドを書いています。セルは、派手な書式設定が施された配送ラベルです。私ができる方法はありますか?

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

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

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

ここに画像の説明を入力

私に何ができる?.Select

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

3 に答える 3

24
Worksheets("Get Address").Range("A33").Copy _
       Destination := Worksheets("Label").Range("A1")
于 2013-05-22T18:19:11.647 に答える
7

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

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

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

于 2015-01-02T19:15:24.840 に答える