Excel VBA在循環內復制和粘貼循環-限制范圍

Question

Newbee在此訪問此站點和Excel VBA。 我在下面的文章中使用了RichA的代碼，並能夠使其正常工作，以實現我從另一個工作表填充/復制工作表（Sheet2）中的數據的目的。

代碼鏈接到原始POST Excel VBA在Loop中復制和粘貼循環

我對如何在此代碼中將范圍限制為“命名范圍”（C13：Z111）而不是“整個列”（“ C”）提出疑問。 我似乎無法限制它復制行，從數據的最后一行開始，一直到第一行。

我有一些行（C1：C12），其標題位於頂部，數據從第13行開始。因此，當將值從一張紙復制到“另一張”紙時，頂行也會復制。 我想在第13行結束數據復制。

謝謝您的幫助。

這是當前的工作方式，但我無法限制范圍。

Sub Generate_Invoice()

Dim i As Long
Dim ii As Long
Dim i3 As Long
Dim LastRow As Long
Dim wb As Workbook
Dim sht1 As Worksheet
Dim sht2 As Worksheet

Set wb = ThisWorkbook
Set sht1 = wb.Sheets("INCENTIVE")
Set sht2 = wb.Sheets("Sheet2")

Sheets("Sheet2").Select
Range("B11:Z200").ClearContents

'Find the last row (in column C) with data.
LastRow = sht1.Range("C13:C111").Find("*", searchdirection:=xlPrevious).Row
ii = 2

'This is the beginning of the loop >>>This Works BUT BUT BUT goes all the way to the top - REQUESTING HELP WITH CODE ENDS AT ROW 13 AND DOES NOT GO PAST<<<

For i = 3 To LastRow
    'First activity
    sht2.Range("B" & ii) = sht1.Range("C" & i).Value
    sht2.Range("C" & ii) = sht1.Range("G" & i).Value
    sht2.Range("D" & ii) = sht1.Range("H" & i).Value
    sht2.Range("E" & ii) = sht1.Range("P" & i).Value
    sht2.Range("F" & ii) = sht1.Range("R" & i).Value
    sht2.Range("G" & ii) = sht1.Range("AD" & i).Value

    ii = ii + 1

Next i

'Return to "Sheet2"
Sheets("Sheet2").Select

'Add SUM at bottom of last record in Range"D"
 Dim ws As Worksheet

    For Each ws In Worksheets
        With ws.Range("F" & Rows.Count).End(xlUp).Offset(2)
            .FormulaR1C1 = "=SUM(R11C6:R[-1]C6)"
            .Offset(, -1).Value = "Total:"
        End With
    Next ws

End Sub

Answer 1

您在尋找最后一行，但只在填充區域內尋找。 我建議通過從工作表的底部開始並在C列中找到最后一個填充的單元格來更改確定最后一行的方法。這就像在C1048576中並點按Ctrl + ▲ 。

'Find the last row (in column C) with data.
LastRow = sht1.Cells(Rows.Count, "C").End(xlUp).Row

'not sure whether you want to reverse this as well
ii = 2

'This is the beginning of the loop >>>This Works BUT BUT BUT goes all the way to the top - REQUESTING HELP WITH CODE ENDS AT ROW 13 AND DOES NOT GO PAST<<<

For i = LastRow To 13 Step -1   'work from the bottom to the top.
    'First activity
    sht2.Range("B" & ii) = sht1.Range("C" & i).Value
    sht2.Range("C" & ii) = sht1.Range("G" & i).Value
    sht2.Range("D" & ii) = sht1.Range("H" & i).Value
    sht2.Range("E" & ii) = sht1.Range("P" & i).Value
    sht2.Range("F" & ii) = sht1.Range("R" & i).Value
    sht2.Range("G" & ii) = sht1.Range("AD" & i).Value

    'not sure whether you want to reverse this as well
    ii = ii + 1

Next i

Answer 2

您只需要根據所需條件退出for循環即可。 例如：

If ii = 13 Then Exit For