копирование строки в определенные ячейки шаблона

Question

Привет! Я хочу вставить ячейки по порядку в строках в определенное значение ячейки в шаблоне при создании нового листа шаблона для каждой строки.

Визуально мне нужна следующая информация:

для ввода в шаблоне так:

Что мне делатьнужно добавить к ниже, чтобы это произошло?Строка в порядке, который я хотел бы извлечь, просто нужна помощь в организации сценария.

У меня есть следующий сценарий VBA:

Sub distribute()
    Dim sh As Worksheet
    Dim k As Long, i As Integer
    Set sh = ThisWorkbook.Sheets("Data")
    k = sh.Range("A1048576").End(xlUp).Row

    For i = 1 To k

        Worksheets("Template").Copy After:=Sheets(Sheets.Count)
        sh.Rows(i).Copy Range("A2")

    Next

End Sub

Спасибо StackOverflow !!

Это сработало благодаря GMalc!

Sub distribute()
    Dim sh As Worksheet
    Dim k As Long, i As Integer
    Set sh = ThisWorkbook.Sheets("Data")
    k = sh.Range("A1048576").End(xlUp).Row

    For i = 2 To k
        With Worksheets("Template")
            .Cells(3,2).Value = sh.Cells(i,1).Rows()
            .Cells(3,4).Value = sh.Cells(i,2).Rows()        
            .Cells(8,4).Value = sh.Cells(i,3).Rows()
            .Cells(5,2).Value = sh.Cells(i,4).Rows()

            .Copy After:=Sheets(Sheets.Count)
        End With
    Next i

End Sub

Answer 1

Попробуйте это ..

Sub distribute()
    Dim sh As Worksheet
    Dim k As Long, i As Integer
    Set sh = ThisWorkbook.Sheets("Data")
    k = sh.Range("A1048576").End(xlUp).Row

    For i = 2 To k
        With Worksheets("Template")
            .Cells(3,2).Value = sh.Cells(i,1).Rows(i)
            .Cells(3,4).Value = sh.Cells(i,2).Rows(i)        
            .Cells(8,4).Value = sh.Cells(i,3).Rows(i)
            .Cells(5,2).Value = sh.Cells(i,4).Rows(i)

            .Copy After:=Sheets(Sheets.Count)
        End With
    Next i

End Sub