VBA Comment copier le contenu d'une cellule sans .Sélectionnez

Je suis en train d'écrire une méthode qui peut prendre la Target et coller la cellule exactement à une autre cellule. La cellule est une étiquette d'expédition avec un peu de fantaisie formatage. Est-il possible que je peux le faire?

À l'origine, j'ai ceci:

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

Il a travaillé pour le texte brut. Cependant j'ai perdu le style que j'ai créé, ils sont différents parce que, après la première ligne, le style est différent:

VBA Comment copier le contenu d'une cellule sans .Sélectionnez

J'ai aussi essayé d'utiliser l'Enregistreur de Macro et j'ai obtenu une solution à l'aide de .Select, et je lisez cette question de ne pas l'utiliser chaque fois que possible. Que puis-je faire?

' Created by the Macro Recorder
Range("A28:A33").Select
Range("A33").Activate
Selection.Copy
Sheets("Label").Select
Range("A1").Select
ActiveSheet.Paste
Votre code peut être re-writtenn en une seule ligne Range("A33").Copy Sheets("Label").Range("A1")
+1 pour l'excellent exemple d'adresse

OriginalL'auteur George | 2013-05-22

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

    OriginalL'auteur Tim Williams

  2. 6

    pour copier et coller des valeurs seulement ensuite utiliser à la suite de

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

    cette déclaration ne sera pas utiliser la carte de clip

    OriginalL'auteur sai baba