Excel: Hinzufügen sequenzielle Spalte mit VBA

-1

Ich versuche, eine Spalte in Excel mit VBA für fortlaufende Nummern hinzuzufügen.Excel: Hinzufügen sequenzielle Spalte mit VBA

Column 1 Column 2 
      Xyz Data 
      Zyx Data 
      Yzx Data

Ich wünsche eine nummerierte Sequenz Spalte hinzufügen 1.

Column 1 Column 2 
1   Xyz Data 
2   Zyx Data 
3   Yzx Data

Auch ich würde steuern, wo sich die Sequenz aus startet. Zum Beispiel von 5 an ....

Column 1 Column 2 
5   Xyz Data 
6   Zyx Data 
7   Yzx Data

Jede Hilfe wird geschätzt. Dank

Quelle

2017-03-14 famakki1

Sie müssen 2 nicht vba verwenden, geben Sie 1, dann 1,2 wählen , bewegen Sie die Maus zur Auswahl rechts unten, bis Sie + sehen, klicken und ziehen Sie nach unten. – Jules

Hallo Jules. Ich bin mir bewusst, dass ich nicht VBA verwenden muss, aber ich arbeite an einem Makro, um eine Tabelle anzupassen, um anzupassen, und bin neu in VBA. Aufgrund der Art der Arbeit muss ich in VBA fortlaufende Nummern hinzufügen, so dass jede Hilfe geschätzt werden würde! – famakki1

Wenn Sie in Zeile 1 bis 100 der Spalte A arbeiten, könnten Sie dies versuchen:

Dim startNum As Long 
Dim offNum As Long 
Dim i As Long 

Let startNum = InputBox("Start from:") 
Let offNum = startNum - 1 
For i = 1 To 100 
    ThisWorkbook.Sheets(1).Cells(i, 1).FormulaR1C1 = "=Row(R" & i & "C1) + " & offNum 
Next

Quelle

2017-03-14 06:12:46 Rick

Hallo Rick. Danke, das scheint gut für mich zu funktionieren. Ich ersetze i = 1 bis 100 mit i = 1 To LastRow where LastRow = Zellen (Rows.Count, "B"). Ende (xlUp) .Row, erlaubt uns, es für eine beliebige Anzahl von Zeilen zu verwenden – famakki1

Sicher, sowohl die " 1 "und" 100 "können durch Variablen ersetzt werden. :) – Rick

-1

Sub enumeration() 

Dim j, k As Integer 
'determine the number to start with 
j = Application.InputBox("What number should I start with?") 
'determine how many rows are there to enumerate 
k = Cells(1, 2).CurrentRegion.Rows.Count 

For i = 0 To k - 2 
    Cells(i + 2, 1).Value = i + j 
Next i 

End Sub

Quelle

2017-03-14 06:10:54

Excel: Hinzufügen sequenzielle Spalte mit VBA

Antwort

Verwandte Themen