VBA调用自定义函数无法生成时间戳问题求助

嘿，我帮你找到问题根源啦！你的时间戳单元格始终为空，主要是函数调用方式错误加上单元格引用的工作表不匹配导致的，还有函数逻辑可能和你的实际需求不符，咱们一步步来修正：

1. 核心问题：自定义函数的调用方式不对 #

你用Call Timestamp(...)来调用这个返回值类型的Function，但Call关键字是专门用来调用无返回值的Sub过程的。用它调用Function时，函数返回的时间戳根本不会被赋值给目标单元格，这就是单元格为空的最主要原因。

另外，你的Timestamp函数逻辑是：只有当传入的Reference单元格不为空时，才返回时间戳，否则返回空字符串。但看你的代码，你是想在复制数据的上方生成时间戳，这个逻辑可能搞反了？或者你是不是不管目标单元格有没有值，都想生成当前时间戳？

2. 隐藏问题：单元格引用的工作表不匹配 #

这段代码里有个容易踩坑的地方：

Call Timestamp(wks.Range(Cells(1, columnOffset)))

Cells(1, columnOffset)没有指定所属工作表，默认会指向当前活动工作表。如果wks不是当前激活的工作表，这会直接导致引用错误，甚至触发运行时异常，自然没法生成时间戳。

修正后的完整代码方案 #

方案一：修复调用方式与引用问题（保留原函数逻辑） #

把函数调用改成直接赋值给目标单元格，同时确保所有单元格引用都绑定到wks工作表：

Dim lastColumn As Long
lastColumn = wks.Cells(2, wks.Columns.Count).End(xlToLeft).Column
lastColumn = Application.Max(lastColumn + 1, wks.Columns("T").Column)
With wks.Range(wks.Cells(2, 5), wks.Cells(lastrow, 5)) ' 这里也要给Cells加上wks引用，避免活动表干扰
    Dim columnOffset As Long
    columnOffset = lastColumn - .Columns(1).Column
    ' 直接将函数返回值赋值给目标单元格，同时修正引用
    wks.Cells(1, lastColumn).Value = Timestamp(wks.Cells(1, lastColumn))
    .Copy
    .Offset(0, columnOffset).PasteSpecial xlPasteValuesAndNumberFormats
    Application.CutCopyMode = False
End With

方案二：如果需求是直接生成当前时间戳（简化函数） #

如果你只是想在复制数据的上方插入当前时间戳，不需要判断单元格是否为空，可以直接修改函数逻辑：

Public Function Timestamp() As String
    ' 直接返回格式化后的当前时间
    Timestamp = Format(Now, "dd-mm-yyyy hh:mm:ss")
End Function

调用时更简单：

wks.Cells(1, lastColumn).Value = Timestamp()

额外提醒 #

• 所有Cells、Range对象都要明确指定所属工作表（比如wks.Cells），避免因活动工作表切换导致的引用错误。
• 确保lastrow变量已经提前定义并正确赋值，否则复制的单元格区域会出错哦。

内容的提问来源于stack exchange，提问作者user10358702