AutoAusfüllen bis zur letzten Zeile in einer Spalte

Ich versuche ein makro zu erstellen, dass Bearbeitungen, die der Zelle C2 auf 0 und dann wählt zum automatischen füllen der letzten Zeile, Spalte minus 1 (die Zeile mit der j-s). Der code funktioniert für 3 Sätze von Aufzeichnungen, aber wenn es mehr Sätze von Daten, die es nicht AutoAusfüllen bis zur letzten Zeile. Zum Beispiel, Wenn es 4 Datensätze es werden nur die autofill-Funktion, um die 3. Zeile und die 4. Zeile noch Ihren alten Wert. Wie mache ich es so, dass es füllt die Letzte Zeile, wenn die Anzahl der Datensätze ändert.

Daten:

ID  |  NAME  | CODE
1   |  JON   | 200
2   |  ANNA  | 300
3   |  TIM   | 400
jjj | jjjjjj | jjjjj

Code:

Dim codeCol as Long

range("C2").Select
ActiveCell.FormulaR1C1 = "0"
codeCol = Cells(1, Columns.Count).End(xlToLeft).Column
Selection.AutoFill Destination:=range("C2:H" & codeCol - 6), Type:=xlFillDefault

Ausgabe:

ID  |  NAME  | CODE
1   |  JON   | 0
2   |  ANNA  | 0
3   |  TIM   | 0
jjj | jjjjjj | jjjjj
InformationsquelleAutor user2273278 | 2013-09-24
  1. 4

    Getestet

    Versuchen, diese 

    Sub test()
With ActiveSheet
 ' range("A" & rows.count).end(xlup).row)  - tells the position of last used row in A column

.Range("C2:C" & .Range("A" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "0"
End With
End Sub

    Ändern Sie den code nach Ihren Bedürfnissen

    • Was muss ich ändern Range("A500000") zu?
    • Siehe meine aktualisierte code .. getestet habe ich den oben genannten code und seine Arbeitsmethoden in Ordnung ..
    • Wenn Sie mit excel dann ändern auf range("A65536") oder wenn Sie excel 2007 verwenden, oder mehr dann verwenden Sie range("A1048576")
    • + 1 für nicht hard-codieren der Zeile Wert 🙂 @user2273278: möchten Sie vielleicht, um zu sehen, DIESER auf, wie man die Letzte Zeile.
    InformationsquelleAutor Sathish K
Schreibe einen Kommentar