Excel VBA Füllsäule von 1 bis N

Question

Ich versuche, einen VBA-Code zu schreiben, um den Bereich A1: A10000 mit den Zahlen 1 bis 10000 automatisch zu füllen, ohne 1 in A1 und 2 in A2 einzugeben, um einen Bereich zu erstellen.

Grundsätzlich, ich brauche einen Code, der wie folgt aussieht:

Set fillRange = Worksheets("Sheet1").Range("A1:A10000") 
(1,2).AutoFill Destination:=fillRange 

Natürlich funktioniert das nicht, aber man bekommt, was es.

Answer 1

Schreiben und zum/vom Arbeitsblatt zu lesen sind einige der langsamste Aktionen, die Sie durchführen können. Zeiteffizienten Code zu schreiben bedeutet soviel wie möglich im Speicher zu tun.

Versuchen Sie, alle Ihre Werte in ein Array schreiben, dann das Ganze in einem Schuss in das Arbeitsblatt schreiben, so etwas wie dieses:

Sub printRange(total As Integer) 
Dim i, myRange() As Integer 
ReDim myRange(1 To total) 
    For i = 1 To total: 
     myRange(i) = i 
Next i 

'Use Transpose to shift the 1d array into a column 

Worksheets("Sheet1").Range("A1:A" & UBound(myRange)).Value = _ 
Application.WorksheetFunction.Transpose(myRange) 

End Sub 

Für insgesamt = 10000, ist dieser ziemlich viel läuft sofort, sogar auf einem zehn Jahre alte Dinosaurier Desktop.

Answer 2

Können Sie nicht eine einfache Schleife verwenden?

For i = 1 to 10000 
    Worksheets("Sheet1").Cells(i, 1) = i 
Next i 

Answer 3

Dim fillRange As Range 
Dim i As Long 

Set fillRange = Worksheets("Sheet1").Range("A1:A10000") 
With fillRange 
    For i = .Cells(1, 1).Row To .Cells(.Rows.Count, 1).Row 
     .Cells(i, 1).Value = i 
    Next i 
End With 'fillRange 

Oder mit AutoFill:

With Worksheets("Sheet1") 
    Range("A1").Value = 1 
    Range("A2").Value = 2 
    Range("A1:A2").AutoFill Destination:=Range("A1:A10000") 
End With 'Worksheets("Sheet1") 

Answer 4

Dim fillRagne As Range 
Set fillRange = Range(Cells(1, 1), Cells(1000, 1)) 
For Each cell in fillRange 
    cell.value = cell.Row 
Next cell 

Answer 5

dies sollte genug

Sie könnte schnell sein verwenden Sie die folgende Funktion

Function FillNumbers(rng As Range) As Variant 
    Dim i As Long 
    ReDim nmbrs(1 To rng.Rows.Count) 

    For i = 1 To UBound(nmbrs) 
     nmbrs(i) = i 
    Next 
    FillNumbers = Application.Transpose(nmbrs) 
End Function 

auf folgende Weise

With Worksheets("Sheet1").Range("A1:A10000") 
    .Value = FillNumbers(.Cells) 
End With