Verschieben von Daten in der Zeile aus x Anzahl der Spalten auf Quantität basieren angegeben

Question

Ich brauche alle Daten in einer Reihe verschieben heraus wie folgt aus:

Qty Shift Hr 1 Hr 2 Hr 3 Hr 4 Hr 5 Hr 6 
1 0 1 1 1   
2.2 3    2.2 2.2 2.2 

ich viele Zeilen haben und sie können über auch eine sein einige hundert Spalten .. daher die Hilfe. Dank

Answer 1

Wenn ich Ihre Frage richtig verstanden was Sie brauchen:

Sub ShiftData() 
    Dim ActiveRow As Range 
    Dim InputData As Range 

    Set InputData = Range(Range("A2"), Range("A2").End(xlDown)) 

    For Each ActiveRow In InputData.Rows 
    'Paste contents starting column C(3) 
    Cells(ActiveRow.Row, 3 + ActiveRow.Offset(0, 1).Value + 0).Value = ActiveRow.Value 
    Cells(ActiveRow.Row, 3 + ActiveRow.Offset(0, 1).Value + 1).Value = ActiveRow.Value 
    Cells(ActiveRow.Row, 3 + ActiveRow.Offset(0, 1).Value + 2).Value = ActiveRow.Value 
    Next 
End Sub