2013-05-22 18 views
9

Piszę metodę, która może podjąć Target i wkleić komórkę dokładnie do innej komórki. Komórka to etykieta wysyłkowa z fantazyjnym formatowaniem. Czy mogę to zrobić?VBA Jak kopiować zawartość komórki bez. Wybierz

Oryginalnie mam to:

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

To działało na zwykły tekst. Jednak straciłem stylizacji stworzyłem, są różne, ponieważ po pierwszej linii, styl jest inny:

enter image description here

Próbowałem też używać Macro Recorder i mam rozwiązanie używając .Select, i I read this question nie używać go, gdy tylko jest to możliwe. Co mogę zrobić?

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

Twój kod może być ponownie writtenn w jednej linii 'Range ("A33") Kopiowanie arkuszy ("Etykieta") Zakres ("A1") " – Santosh

+1

+1 za wspaniały przykład adresu – aevanko

Odpowiedz

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

na kopiowanie i wklejanie wartości tylko wtedy użyć następujących

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

to stwierdzenie nie użyje schowka

Powiązane problemy