Excel VBA：标识工作表中公式（或数据）的最后一行，复制该行，然后在其正下方粘贴一行_Excel_Vba

Excel VBA：标识工作表中公式（或数据）的最后一行，复制该行，然后在其正下方粘贴一行

excel vba

Excel VBA：标识工作表中公式（或数据）的最后一行，复制该行，然后在其正下方粘贴一行,excel,vba,Excel,Vba,我想确定表格上题为“定期贷款”的最后一行公式。然后我想复制所有这些公式并将它们粘贴到下面的一行。例如，如果公式的最后一行是第15行，我想复制第15行并将公式粘贴到第16行。在我下面的代码中，我在工作表（“定期贷款”）.Range（工作表（“定期贷款”）.Cells（lRow，1））.EntireRow.Copy行中遇到一个错误。请提供有关如何解决此问题的任何建议。错误为“应用程序定义或对象定义错误” 将lrow声明为Long后，您试图将其作为范围引用，这就是错误的来源。试试这个，我声明了一些其他

我想确定表格上题为“定期贷款”的最后一行公式。然后我想复制所有这些公式并将它们粘贴到下面的一行。例如，如果公式的最后一行是第15行，我想复制第15行并将公式粘贴到第16行。在我下面的代码中，我在

工作表（“定期贷款”）.Range（工作表（“定期贷款”）.Cells（lRow，1））.EntireRow.Copy

行中遇到一个错误。请提供有关如何解决此问题的任何建议。错误为“应用程序定义或对象定义错误”

将

lrow

声明为

Long

后，您试图将其作为范围引用，这就是错误的来源。试试这个，我声明了一些其他变量，以使代码更简单。希望这有助于：

Sub copypaste1rowdown()

    Dim ws As Worksheet
    Set ws = ActiveSheet

    Dim lRow As Long
    lRow = ws.Range("A3:Q3").CurrentRegion.Rows.Count

    Dim lCol As Long
    lCol = ws.Range("A3:Q3").CurrentRegion.Columns.Count

    Dim i As Long

    For i = 1 To lCol
        Cells(lRow + 2, i).Copy
        Cells(lRow + 2, i).Offset(1, 0).PasteSpecial xlPasteAll
    Next i

End Sub

将

lrow

声明为

Long

后，您试图将其作为范围引用，这就是错误的来源。试试这个，我声明了一些其他变量，以使代码更简单。希望这有助于：

Sub copypaste1rowdown()

    Dim ws As Worksheet
    Set ws = ActiveSheet

    Dim lRow As Long
    lRow = ws.Range("A3:Q3").CurrentRegion.Rows.Count

    Dim lCol As Long
    lCol = ws.Range("A3:Q3").CurrentRegion.Columns.Count

    Dim i As Long

    For i = 1 To lCol
        Cells(lRow + 2, i).Copy
        Cells(lRow + 2, i).Offset(1, 0).PasteSpecial xlPasteAll
    Next i

End Sub

您的错误是由

Worksheets("Term Loans").Range(Worksheets("Term Loans").Cells(lRow, 1))

当您将单个参数传递给

范围（…）

时，它将被解释为地址字符串。当该参数本身是一个范围时，（

工作表（“定期贷款”）.Cells（在本例中为lRow，1）

）该范围的值将传递给

范围

（因此

…Cells（lRow，1）。value

为本例）

所以，除非

。单元格（lRow，1）.Value

返回A1样式的有效地址（或命名区域的名称），您将得到一个错误

下面是如何正确引用范围

Sub Demo
    Dim lRow As Long
    Dim ws As Worksheet

    Set ws = Sheets("Term Loans")

    'Find the last non-blank cell in column A(1)
    lRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    ' Now Copy the range:
    ws.Cells(lRow, 1).EntireRow.Copy
    ' And paste to first empty row
    ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteFormulas
    Application.CutCopyMode = False

End Sub

和一个改进的版本

Sub Demo2
    Dim wb as Workbook
    Dim ws As Worksheet
    Dim rng as Range 

    Set wb = Thisworkbook 'or Activeworkbook, or some other book you specify
    Set ws = wb.Worksheets("Term Loans")
    With ws
        'Find the last non-blank cell in column A(1)
        Set rng = .Cells(.Rows.Count, 1).End(xlUp).EntireRow
    End With 

    ' Now Copy the range:
    rng.Copy
    ' And paste to first empty row
    rng.Offset(1, 0).PasteSpecial xlPasteFormulas
    Application.CutCopyMode = False

    ' To set a specific cell in the new row to a value
    Dim MyVal as Long
    MyVal = 42
    rng.Offset(1, 0).Cells(1, 3) = MyVal
End Sub