求助：编写支持行范围的VBA自定义函数实现编辑时更新时间戳

要实现支持多单元格范围、跨工作表使用的时间戳功能，你需要将自定义函数改为数组函数，使其能批量处理多个单元格，并确保引用范围变更时自动触发更新。以下是修改后的代码：

Function MyTimestamp(Reference As Range) As Variant
    Dim resultArray() As Variant
    Dim cell As Range
    Dim i As Long, j As Long
    
    ' 初始化结果数组，与引用范围大小一致
    ReDim resultArray(1 To Reference.Rows.Count, 1 To Reference.Columns.Count)
    
    ' 遍历引用范围的每个单元格
    For i = 1 To Reference.Rows.Count
        For j = 1 To Reference.Columns.Count
            Set cell = Reference.Cells(i, j)
            ' 判断单元格是否非空，返回对应时间戳或空值
            If cell.Value <> "" Then
                resultArray(i, j) = Format(Now, "dd-mm-yyyy hh:mm:ss")
            Else
                resultArray(i, j) = ""
            End If
        Next j
    Next i
    
    ' 返回数组结果
    MyTimestamp = resultArray
End Function

使用方法 #

1. 单个工作表内使用：

   • 选中与引用范围大小一致的单元格区域（比如引用A1:C3，就选中要放时间戳的D1:F3）
   • 在公式栏输入 =MyTimestamp(A1:C3)
   • 按下 Ctrl+Shift+Enter（Excel旧版）或直接回车（Excel 365/2021，支持动态数组）

2. 跨工作表使用：

   • 选中目标区域后，公式中指定跨表范围，比如 =MyTimestamp(Sheet2!A1:C3)
   • 同样按数组公式的方式确认输入

关键说明 #

• 函数返回与引用范围维度匹配的数组，每个单元格对应独立的时间戳
• 当引用范围内任意单元格内容变更时，Excel会自动重新计算函数，更新对应时间戳
• 确保文件保存为.xlsm格式（启用宏的工作簿），否则函数无法运行
• 如果时间戳没有自动更新，检查Excel计算设置：文件→选项→公式，确保勾选「自动重算」

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