Скопируйте определенные ячейки из строки и вставьте в другой лист, повторите на следующей строке и повторяйте, пока ячейка в следующей строке не станет пустой

Question

Отредактировано: 2/2/19

Я все еще пытаюсь понять это.Я немного почитал и понял, что иду по неверному пути.Я создал лучшее объяснение того, что я пытаюсь сделать, и пример ниже.Мне нужна ваша помощь мне с шагами 1-2, шагами 4-5 и шагами 7-9.Спасибо за ваше терпение и понимание!

Sub Weeder_Repeater()
'
' 1) Copy Columns "D:L" Starting at Line 4 from Candidate Weeder sheet
' 2) Special Paste, Values, Transpose, to Metal Powder Bed AM Calculator sheet Cell "Q6"
' 3) Call Weeder_RAPID_Cal macro
' 4) Copy solution from Metal Powder Bed AM Calculator sheet Cell "Q15"
' 5) Special Paste, Values to Candidate Weeder sheet Column "O"
' 6) Call Weeder_RAPID_Reset macro
' 7) Move to next line in Candidate Weeder sheet
' 8) Repeat Steps 1-7
' 9) End when Blank in Column "D" encountered
'

'Step 1-2


'Step 3
    Call Weeder_RAPID_Calc

'Step 4-5


'Step 6
    Call Weeder_RAPID_Reset

'Step 7-9


End Sub

Answer 1

'Укажите данные вне диапазона

Для счетчика = от 3 до 10000

'Conditions that you can change it. in the bellow codes (counter) is your cell number and the number after comma is your column index. you can also do not specify your column and only loop through cells. you can also use from (i,j) for looping through both cells and columns (means two (For) loops).

Если рабочие листы ("2-й контроль качества"). Ячейки (счетчик, 2). Значение <Рабочие листы («2nd QC»). Ячейки (counter, 3) _ Or Worksheets («2nd QC»). Ячейки (counter, 3) .Value <Worksheets («2nd QC»). Ячейки (counter, 4) _ Or Worksheets (»2nd QC "). Ячейки (счетчик, 4). Значение <Рабочие листы (" 2nd QC "). Ячейки (счетчик, 5) Затем </p>

Worksheets (" 2nd QC "). Ряды (счетчик) .Interior.Цвет = 65535

Остальные рабочие листы ("2-й контроль качества"). Ячейки (счетчик). Значение = рабочие листы ("2-й контроль качества"). Ячейки (счетчик). Значение

Конец, если

Следующий счетчик

'Пример цикла выхода:

Sub ExitStatementDemo ()

Dim I, MyNum

Do                ' Set up infinite loop.

    For I = 1 To 1000    ' Loop 1000 times.

        MyNum = Int(Rnd * 1000)    ' Generate random numbers.

        Select Case MyNum    ' Evaluate random number.

            Case 7: Exit For    ' If 7, exit For...Next.
            Case 29: Exit Do    ' If 29, exit Do...Loop.
            Case 54: Exit Sub    ' If 54, exit Sub procedure.
        End Select
    Next I
Loop

End Sub

Надеюсь, это поможет