Erstellen URL Paginator mit Excel VBA

Question

Ich habe folgende Daten:

• Col a: Spezifische URL
• Col b: Anzahl der Seiten in dieser URL

Ich brauche eine Liste zu erstellen die URL mit dem anhängenden Seite Wert am Ende

Das Endergebnis mit Excel VBA-Makro/Python sollte so aussehen, mit dem angehängten &page= Wert am Ende.

Answer 1

Antwort ist diese:

Sub Paginator() 
    Dim sht As Worksheet: Set sht = ActiveSheet 
    Dim LastRow As Long 
    Dim curCell As Range 
    Dim i As Integer 
    Dim iCounter As Integer: iCounter = 0 

    LastRow = sht.Cells(Rows.Count, "A").End(xlUp).row 

    For Each curCell In sht.Range("A1:A" & LastRow).Cells 

     For i = 1 To Val(curCell.Offset(, 1)) 
      iCounter = iCounter + 1 
      Cells(iCounter, 3) = curCell & "&page=" & i 
     Next i 

    Next  

End Sub 

Ändern i=2 Seite 1 Werte

ignorieren