Скопируйте и вставьте значение ячейки "X" несколько раз, затем l oop в следующую строку

Question

Подробности:

1. Скопируйте значение ячейки в столбец D, ЕСЛИ значение YR равно 1, вставьте, начиная с столбца G
2. Это повторяется в каждой строке для счетчика # раз IE если счетчик равен 5, скопируйте и вставьте значение ячейки из G в K
3. Когда счетчик истечет, перейдите к следующей строке и повторите процесс

Снимок экрана Excel введите описание изображения здесь

Dim StartRow As Byte
Dim LastRow As Long
Dim i As Integer
Dim ii As Integer
Dim cnt As Integer

StartRow = 3
LastRow = Range("B3").CurrentRegion.Rows.Count - 1

For i = StartRow To LastRow
    cnt = Range("C" & i).Value
    For ii = 1 To cnt
        If Range("B" & StartRow) = 1 Then
            Range("D" & StartRow).Copy
            Range("B" & StartRow).End(xlToRight).Offset(0, ii + 2).PasteSpecial (xlPasteAll)
        End If
    Next ii
Next i

Answer 1

Вы можете попробовать это:

Dim StartRow As Byte
Dim LastRow As Long
Dim i As Integer
Dim ii As Integer
Dim cnt As Integer
Dim limitCol As Integer

StartRow = 3
LastRow = Range("B3").CurrentRegion.Rows.Count - 1

For i = StartRow To LastRow
    If (CInt(Range("B" & i)) = 1) Then
        cnt = Range("C" & i).Value
        limitCol = cnt + 6
        For ii = 7 To limitCol
            Cells(i, ii) = Range("D" & i).Value
        Next ii
    End If
Next i