☰

完成“循环”后，选择范围内的第一个单元格

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba
完成“循环”后，选择范围内的第一个单元格

我有一个脚本，可以循环遍历一张纸上的各部分（功能测试程序）并将这些值粘贴到另一张表中（结果) 在单元格 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

答案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

相关内容