Когда закончится "зацикливание", выберите первую ячейку в диапазоне

Question

У меня есть скрипт, который перебирает разделы на одном листе (Процедура функционального теста) и вставляет эти значения в другой лист (Результаты) в ячейке L2.

В настоящее время он настроен так, чтобы выполнить цикл по числу секций, скопировать и вставить эти значения в таблицу результатов и выбрать следующую пустую ячейку в столбце L.

Это работает просто отлично, если кнопка не нажата несколько раз, потому что, когда кнопка нажата несколько раз, она добавит скопированные результаты под результаты, которые уже были там.

То, что я хочу сделать, - это изменить скрипт для циклического перебора доступных разделов, а затем выбрать ячейку L2, чтобы вставить обновленные результаты поверх существующих результатов, если кнопка была нажата несколько раз.

Это должно быть просто, но я не могу понять это. Кроме того, нужный диапазон был назван «ATPResults».

Sub Copy_ATP_Tables()

 Dim SectionATP As Long, NextRow As Long

  For SectionATP = 1 To 35 '36

    NextRow = Sheets("Results").Range("L" & Rows.Count).End(xlUp).Row + 1 'Next empty row

    Sheets("Acceptance Test Procedure").Range("APTSec" & SectionATP).Columns("A:H").Copy _
    Destination:=Sheets("Results").Range("L" & NextRow) 'SpecialCells(xlCellTypeVisible)

'        Range("FTPSec" & Section).Columns("G:H").SpecialCells(xlCellTypeVisible).Copy _
'            Destination:=Sheets("Results").Range("N" & NextRow)

  Next SectionATP

'    Sheets("Results").Range("ATPResults").Select
'    For SectionATP = 35 To 35

End Sub

Answer 1

Я надеюсь, что понял ваш вопрос, я изменил его, чтобы он всегда начинался с L2:

Sub Copy_ATP_Tables()

 Dim SectionATP As Long, NextRow As Long
 NextRow = Sheets("Results").Range("L" & 2) 'This line defines where to start 

  For SectionATP = 1 To 35 '36

    Sheets("Acceptance Test Procedure").Range("APTSec" & SectionATP).Columns("A:H").Copy _
    Destination:=Sheets("Results").Range("L" & NextRow) 'SpecialCells(xlCellTypeVisible)

    NextRow = Sheets("Results").Range("L" & Rows.Count).End(xlUp).Row + 1 'Moved to the end of the loop

  Next SectionATP
End Sub