VBA nasıl başka bir hücreye tam hücreyi <code>Target</code> alıp yapıştırabilirsiniz bir yöntem yazıyorum .Select

Question

olmadan bir hücrenin içeriğini kopyalamak için. Hücre, bazı süslü biçimlendirmeye sahip bir nakliye etiketidir. Yapabileceğim bir yolu var mı?

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

düz metin için çalışmış:

Başlangıçta bu var. Ancak Oluşturduğum stil kaybettiği ilk satırdan sonra, stil farklı olduğundan, bunlar farklıdır:

Ben de Macro Recorder kullanmaya çalıştı ve ben .Select kullanarak bir çözüm var, ve read this question, mümkün olduğunda kullanmamak. Ne yapabilirim?

' 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

kopyalayıp yapıştırma değerleri sadece o

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

bu açıklama klibi kurulu kullanmaz

aşağıdaki kullanmak

Kodunuz tek bir satır `Range (yeniden writtenn edilebilir