Функция копирования и вставки последних данных последней строки столбца

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 к a `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 вызовет функцию пересчета при любом исчислении. Это может серьезно повлиять на производительность.