複製和粘貼列最後一行的最後一個數據的功能

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將導致函數在任何計算執行時重新計算。這可能會嚴重影響性能。