Excel VBA自动填充公式问题：如何排除表头并实现动态填充？

我来帮你搞定这个VBA公式填充的问题，咱们一步步梳理解决办法：

先解决「公式应用到表头行」的核心问题 #

你的原代码之所以会影响表头行，大概率是当Lastrow等于1（也就是DJ列只有表头有内容）时，Range("DK2:DK1")会被Excel自动反转成Range("DK1:DK2")，不小心把表头行也包含进去了。这里给你修正后的脚本，同时确保公式正确关联每行的DH列数据：

Sub Insert_Formula()
    Dim Lastrow As Long
    ' 定位DJ列最后一个有数据的行
    Lastrow = Range("DJ" & Rows.Count).End(xlUp).Row
    
    ' 只在存在数据行（Lastrow > 1，跳过第1行表头）时填充公式
    If Lastrow > 1 Then
        ' 从DK2开始到对应最后一行，确保只覆盖数据区域
        Range("DK2:DK" & Lastrow).Formula = "=TIMEVALUE(DH2)"
    End If
End Sub

这里的公式=TIMEVALUE(DH2)用的是相对引用，所以DK2对应DH2，DK3对应DH3，以此类推，不会出现「第一行结果填充到其余行」的问题——如果之前出现这个情况，大概率是误写了绝对引用$DH$2，或者Lastrow的计算逻辑出了问题。

更省心的动态自动填充方案（无需手动跑VBA） #

如果你希望公式能自动跟着新增数据行同步填充，不用每次手动运行脚本，强烈推荐把数据转换成Excel自带的表格（ListObject）：

1. 选中你的数据区域（包含表头），按下Ctrl+T，勾选「我的表格有标题」完成创建。
2. 在DK列的表头下方（DK2单元格）输入公式=TIMEVALUE([@DH])，回车后，这个公式会自动应用到所有现有行；之后你在DJ列新增数据时，DK列会自动同步填充公式，完全不用手动干预。

进阶：用VBA实现实时动态填充 #

要是你还是偏好VBA方案，可以添加一个工作表事件，让公式在DJ列输入数据时自动生成：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只监听DJ列的单元格变化
    If Not Intersect(Target, Me.Range("DJ:DJ")) Is Nothing Then
        Dim targetRow As Long
        targetRow = Target.Row
        
        ' 跳过表头行（第1行）
        If targetRow > 1 Then
            Me.Range("DK" & targetRow).Formula = "=TIMEVALUE(DH" & targetRow & ")"
        End If
    End If
End Sub

使用方法：右键工作表标签→「查看代码」，把这段代码粘贴到窗口里就行。之后只要在DJ列的第2行及以后输入数据，对应的DK列会自动生成公式。

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