复制和粘贴列最后一行的最后一个数据的功能

Question

下面是复制和粘贴列最后一行数据的代码。它在命令按钮上工作，但如果我把它作为一个函数，它不工作。它会给出0或错误的结果。请检查。谢谢。

Function CopyCell() 

    Application.Volatile True 
    Dim eRow As Integer 
    Dim i As Integer 

    With Sheets("Weekly Score") 
    eRow = .Cells(Rows.Count, "N").End(xlUp).Row 
    .Cells(eRow, "N").Copy 
    .Range("AG3").PasteSpecial xlPasteValues 
    End With 

    ENd Function 

Answer 1

试着做这个分配的MyFunction到您的按钮

Option Explicit 
Sub MyFunction() 
    Call CopyCell 
End Sub 

Function CopyCell() 
Application.Volatile True 
    Dim eRow As Integer 
    Dim i  As Integer 

    With Sheets("Weekly Score") 
     eRow = .Cells(Rows.count, "N").End(xlUp).Row 
     .Cells(eRow, "N").copy 
     .Range("AG3").PasteSpecial xlPasteValues 
    End With 

End Function 

Answer 2

如果你想要一个UDF修改的功能，例如：

Public Function CopyCell() 
    Application.Volatile True 
    Dim eRow As Integer 
    Dim i As Integer 

    With Sheets("Weekly Score") 
     eRow = .Cells(Rows.Count, "N").End(xlUp).Row 
     CopyCell = .Cells(eRow, "N").Value 
    End With 
End Function 

否则失去Volatile并更改Function到一个Sub，只需手动调用它：

Sub CopyCell() 

    Dim eRow As Integer 
    Dim i As Integer 

    With Sheets("Weekly Score") 
    eRow = .Cells(Rows.Count, "N").End(xlUp).Row 
    .Cells(eRow, "N").Copy 
    .Range("AG3").PasteSpecial xlPasteValues 
    End With 
End Sub 

请记住，Application.Volatile True将导致函数在任何计算执行时重新计算。这可能会严重影响性能。