kopieren und fügen Sie einen Zellenwert in mehrere Zellen ein

Wenn ich in meiner Sprayseed arbeite, ohne Verwendung von VBA-Code, könnte ich eine einzelne Zelle auswählen, kopieren, dann eine Reihe von Zellen auswählen und einfügen. Das Ergebnis wäre, dass alle Zielzellen mit einem beliebigen Wert in der Quellzelle gefüllt sind.kopieren und fügen Sie einen Zellenwert in mehrere Zellen ein

Wie würde ich das in VBA-Code tun?

Sie würden denken, dass das Folgende funktioniert, weil es das oben beschriebene Verhalten nachahmt, aber es nicht tut. Es füllt die oberste Zelle des Zielbereichs mit dem Wert und lässt den Rest der Zellen leer.

Range("A1").Select 
    Selection.Copy 
    Range("B1:B12").Select 
    ActiveSheet.Paste

Quelle

2016-09-01 vanao veneri

Es funktioniert für mich. aber Sie können 'Range (" A1 ") verwenden. Kopieren Sie den Bereich (" B1: B12 ")' als eine Zeile. –

Ich bin verwirrt. Erneut mit einem neuen Arbeitsblatt versucht und es funktioniert wie es sollte. Das Problem muss dann etwas anderes sein. Meinen Code nochmal überprüfen ... –

Sorry, mein Schlechter. Der Fehler war eigentlich irgendwo anders in meinem Code und ich habe es behoben. –

Sie brauchen nicht in VBA kopieren & Paste zu verwenden, können Sie Werte auf Bereiche eingestellt, etwa so:

Range("B1:B12").Value = Range("A1").Value

Quelle

2016-09-01 14:46:55

kopieren und fügen Sie einen Zellenwert in mehrere Zellen ein

Antwort

Verwandte Themen