復制整個Excel行並粘貼到表格底部

Question

我正在編寫一個Excel宏，它逐行遍歷Excel表，並且應該復制整行並在滿足條件時將其粘貼到最后一行。 在行中循環並滿足條件都可以正常工作但我仍然堅持復制某行並將其粘貼到表的末尾。

Sub Makro1()
    Application.Goto Reference:="Makro1"

    Dim i As Integer

    With ActiveSheet
        'for looping
        totalRows = .Cells(.Rows.Count, "A").End(xlUp).Row

        'index of last row even after rows have been added
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row    

        'data starts at row #3
        For i = 3 To totalRows
            If Cells(i, 19).Value > 0 Then
                number = Cells(i, 19).Value
                Do While number > 0
                    lastRow = lasRow + 1        
                    Rows(lastRow) = Rows(i).Value                
                    number = number - 1
                Loop
            End If
        Next i
    End With
End Sub

我得到運行時錯誤1004.我知道嵌套循環很糟糕，我只需要這個工作（非編碼）來讓我的生活更輕松。

Answer 1

錯誤：

運行時錯誤'1004'：
應用程序定義或對象定義的錯誤

...發生在代碼的第一行：

Application.Goto Reference:="Makro1"

該語句需要一個名為“Makro1”的命名區域，但找不到它。 如果它找到它，范圍將滾動到視圖中。 如果這對您不重要，那么只需注釋掉該行：

' Application.Goto Reference:="Makro1"

否則，從功能區上的“公式”選項卡中打開“名稱管理器”，並檢查工作簿具有的命名范圍。 如果您知道應該以這種方式調用哪個范圍，可能會重新創建“Makro1”。