2016-07-07 11 views
0

Ich brauche Hilfe beim Ziehen einer Zeichenkette ("Decliners") in Excel. Ich weiß, wie ich das mache, wenn ich wüsste, welche Zelle mein Ausgangspunkt ist, aber ich muss zuerst die erste leere Zeile in meinem Datensatz finden.
Sobald ich meine erste leere Zeile gefunden habe, muss ich meine Saite von dort in Spalte C3 ziehen.
Diese Zeichenfolge wird nur um eine Spalte nach unten gezogen. Ich kenne auch nicht die Reichweite dieses Datensatzes, da er dynamisch ist.Wie man eine Formel nach dem Auffinden der ersten leeren Zelle (VAR) nach unten zieht (AutoFill)

Im Grunde muss ich nur die Aktion von Doppelklick auf die untere rechte der Zelle neu erstellen und das Wort "Verweigerer" füllen bis zum Ende des Datensatzes.

-Code die erste leere Zelle im Arbeitsblatt auszuwählen:

Dim Pastesheet As Worksheet 
Dim Decliners As String 
Decliners = "Decliners" 

Set Pastesheet = Worksheets("Ent Gainers_Decliners") 
Pastesheet.Range("C3").End(xlDown).Offset(1, 0).Select 
'Where I need the word "Decliners" dragged down from the cell selected 

Spreadsheet picture

+0

Möglicherweise müssen Sie angeben, welche Spalte die Länge der Werte für Spalte C bestimmt und ob Spalte C bereits einige Werte enthält, die nicht gestört werden sollten. – Jeeped

Antwort

5
With Pastesheet 
    .Range(.Range("C3").End(xlDown).Offset(1),.Cells(.Rows.Count,4).End(xlUp).Offset(,-1)).Value = Decliners 
End With 

Dieses Stück Code wird von dem Wert der Variablen Decliners von der Reihe nach dem letzten Datensatz Bereich C3 bis zur letzten entsprechenden Zeile der verwendeten Daten in Spalte D für Spalte C.

+0

Guter Haken beim Auffinden der letzten Reihe in Spalte B; Das habe ich selbst vermisst. – Jeeped

+0

@Jeeped - Ich wollte dir etwas schreiben, aber du hast es gelöscht :) –

+0

Also habe ich das versucht und nichts ist passiert. Ich habe 'end (xlUp)' durch 'end (xlDown)' ersetzt und die gesamte Spalte mit "Decliners" gefüllt. Nicht wirklich sicher, warum es nicht funktioniert. – Davey

Verwandte Themen