Excel VBA複製和粘貼循環內的循環 - 限制範圍

Question

Newbee在這裏既要到這個網站和Excel VBA。我在下面的帖子中使用了RichA的代碼，並且能夠使它適用於我從另一個工作表中填充/複製工作表（Sheet2）上的數據的目的。

代碼鏈接到原始POST Excel VBA Copy and Paste Loop within 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

你只需要退出for循環根據你想要的標準是什麼。例如：

If ii = 13 Then Exit For 

Answer 2

您正在查找最後一行，但只查看人口稠密地區。我建議通過在工作表底部開始並在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