Créer des cellules à partir de la date x et se terminant à la date y

Question

J'ai une feuille Excel sur laquelle je travaille, qui recherche les données d'une base de données en fonction de la date/heure. J'ai une ligne configurée avec la date et l'heure de début et je veux créer un script ou une macro qui copiera automatiquement cette ligne, je l'appellerai la ligne guide, et j'ajouterai x minutes jusqu'à ce qu'elle atteigne une heure de fin.

Je dois copier toute la ligne de guide (ligne 5) ajouter x minutes (que vous pouvez définir dans la cellule D3) et les copier autant de fois que la valeur de temps (située dans la colonne G de chaque ligne) heure (située dans G2).

Answer 1

réponse de transfert ajoutée par OP à la question pendant la période OP ne peut pas poster propre réponse:

Voici le code que je travaille à partir des liens utiles à ma question:

Sub PopCells() 
' Define Variables 
Dim RowLast As Long 'Last Row with Data in it 
Dim CpRange As String 'Holds range of data to select when using a variable 

' Find the Last Row with Data in it 
RowLast = ActiveSheet.Cells(Rows.Count, "H").End(xlUp).Row 

' Clear out old range of data 
Let CpRange = "H6:ZZ" & RowLast 
ActiveSheet.Range(CpRange).Select 
Selection.ClearContents 

' Set the current row to the first row with Data 
CrRow = 5 

' Loop copies the current row, pastes it to the following row 
' And increments the time frame by the time increament value 
While Cells(CrRow, "H") <= [G2] 
    ' Select the entire current row 
    Let CpRange = "H" & CrRow & ":" & "ZZ" & CrRow 
    ActiveSheet.Range(CpRange).Select 

    'Copy Selected Row 
    Selection.Copy 

    ' Increment to the Next Row 
    CrRow = CrRow + 1 

    ' Select the entire current row 
    Let CpRange = "H" & CrRow & ":" & "ZZ" & CrRow 
    ActiveSheet.Range(CpRange).Select 
    ' Paste in copied row 
    ActiveSheet.Paste 

    ' Update time 
    ActiveSheet.Cells(CrRow, "H") = ActiveSheet.Cells(CrRow - 1, "H") + [$D$3]/1440 
Wend 


End Sub