☰

完成「循環」後選擇範圍中的第一個儲存格

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

相關內容