存储在单单元格excel中的范围的上次更新日期

所以我有这个excel工作表，其中有一个A2:A3的范围，我想知道我是否可以将该特定范围的上次更新时间存储到一个单元格中，比如B1？ 我真的知道VBA的世界。 非常感谢您的帮助：）

• 右键单击工作表选项卡
• 视图代码
• 复制并粘贴下面的代码
• 返回Excel

code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range
Set rng1 = Intersect([a2:a3], Target)
If rng1 Is Nothing Then Exit Sub
Application.EnableEvents = False
[b1] = Format(Now(), "dd-mm-yyyy hh:mm:ss")
Application.EnableEvents = True
End Sub

---

'编写此宏是为了更新每个A2:D43415上上次修改的日期/时间 '应用于F列的上次修改日期

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rInt As Range
Dim rCell As Range
Dim tCell As Range
Dim tColInt As Integer

tColInt = 6 'Column Index, Example: A=1, B=2, ...... ,Z=26


Set rInt = Intersect(Target, Range("A2:D43415")) 'Change cell range
 If Not rInt Is Nothing Then
    For Each rCell In rInt
        Set tCell = Cells(rCell.Cells.Row, tColInt)
        If IsEmpty(tCell) Or Not IsEmpty(tCell) Then
            tCell = Now
            tCell.NumberFormat = "dd/mm/yyyy h:mm:ss AM/PM" 'Custom Format
        End If
    Next
 End If
End Sub

---

如果该范围内的任何单元格更改了该范围的阈值，则该值应能正常工作。但我只是想知道，如果我想对两个区域执行此操作，并将它们存储在两个单元格中，该怎么办？如果您查看上面的链接。。当我改变H35:H52时。。H8和H9都得到更新。不只是我希望的H9。。