VBA-kopieren der Inhalt einer Zelle ohne .Wählen Sie

Ich Schreibe eine Methode, die den Target Sie und fügen Sie die Zelle genau in eine andere Zelle. Die Zelle ist ein Versand-Etikett mit ein paar ausgefallenen formatieren. Gibt es eine Möglichkeit, kann ich es tun?

Ursprünglich habe ich dieses:

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

Arbeitete er für den Klartext. Jedoch verlor ich das styling habe ich erstellt, Sie sind anders, weil nach der ersten Zeile, der Stil ist anders:

VBA-kopieren der Inhalt einer Zelle ohne .Wählen Sie

Ich auch versucht, Makro-Recorder und ich habe eine Lösung mit .Select, und ich Lesen Sie diese Frage nicht, es zu benutzen, Wann immer möglich. Was kann ich tun?

' Created by the Macro Recorder
Range("A28:A33").Select
Range("A33").Activate
Selection.Copy
Sheets("Label").Select
Range("A1").Select
ActiveSheet.Paste
  • Ihren code können neu-writtenn in einer einzigen Zeile Range("A33").Copy Sheets("Label").Range("A1")
  • +1 für das tolle Beispiel-Adresse
InformationsquelleAutor George | 2013-05-22
  1. 19
    Worksheets("Get Address").Range("A33").Copy _
       Destination := Worksheets("Label").Range("A1")
    InformationsquelleAutor Tim Williams
  2. 7

    kopieren und nur Werte einfügen dann benutzen Sie folgende

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

    diese Anweisung nicht verwenden, clip-board

    InformationsquelleAutor sai baba
Schreibe einen Kommentar