核心思路 #

直接使用Excel的ListObject（结构化表格）对象操作，完全规避手动查找最后空行的问题——ListObjects自带的ListRows.Add方法会自动在表格末尾插入新行，不管表格起始位置在哪里，都能精准定位。

实现代码 #

在Table1所在工作表的代码模块中粘贴以下代码（右键工作表标签→查看代码）：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tblSource As ListObject
    Dim tblLog As ListObject
    Dim changedRow As ListRow
    Dim newLogRow As ListRow
    Dim t0DateCol As ListColumn
    Dim longitudeCol As ListColumn
    
    ' 绑定源表格Table1和日志表格T0Change
    Set tblSource = Me.ListObjects("Table1")
    On Error Resume Next
    Set tblLog = ThisWorkbook.Worksheets("替换为实际工作表名").ListObjects("T0Change")
    On Error GoTo 0
    
    ' 校验日志表格是否存在
    If tblLog Is Nothing Then
        MsgBox "未找到日志表格T0Change，请检查工作表和表格名称", vbExclamation
        Exit Sub
    End If
    
    ' 定位T-0 Date列，判断变更是否发生在该列
    Set t0DateCol = tblSource.ListColumns("T-0 Date")
    If Not Intersect(Target, t0DateCol.DataBodyRange) Is Nothing And Target.Cells.Count = 1 Then
        ' 获取变更对应的源表格行
        Set changedRow = tblSource.ListRows(Target.Row - tblSource.HeaderRowRange.Row)
        
        ' 提取该行的longitude值
        Set longitudeCol = tblSource.ListColumns("longitude")
        Dim longitudeVal As Variant
        longitudeVal = changedRow.Range(longitudeCol.Index).Value
        
        ' 在日志表添加新行并填充数据
        Set newLogRow = tblLog.ListRows.Add(AlwaysInsert:=True)
        With newLogRow
            .Range(1).Value = Target.Value       ' 更新后的T-0 Date
            .Range(2).Value = Now()              ' 当前时间戳
            .Range(3).Value = longitudeVal       ' 对应longitude值
        End With
    End If
End Sub

关键细节说明 #

1. 无需查找最后空行：tblLog.ListRows.Add直接在日志表末尾插入新行，完全适配非A1起始的表格
2. 精准触发判断：通过Intersect(Target, t0DateCol.DataBodyRange)确保仅在T-0 Date列变更时执行逻辑
3. 跨表格取值：通过changedRow.Range(longitudeCol.Index)直接提取源行的longitude值，不用手动计算单元格位置
4. 兼容性处理：加入错误判断避免日志表格不存在时崩溃

注意事项 #

• 把代码中的替换为实际工作表名改成存放T0Change表的工作表名称（比如"日志表"）
• 确保T0Change表的列顺序为：更新后日期→时间戳→longitude，如果列顺序不同，调整.Range()里的数字即可
• 若需要支持批量修改T-0 Date列，删除Target.Cells.Count = 1的判断，并添加循环处理每个变更单元格

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