自动填充公式

Question

要求： 需要仅为具有数据的单元格自动填充公式。

解决方案： 通过VB脚本创建公式：

Sub Insert_Formula()

    Dim Lastrow As Long
    Lastrow = Range("DJ" & Rows.Count).End(xlUp).Row
    Range("DK2:DK" & Lastrow).Formula = "=TIMEVALUE(DH2)"

End Sub

问题：

*现在该公式也适用于第一行。如何排除标题行？ 并且第一行的结果将填充在剩余的行中（尽管公式已相关填充）。

或者是否有其他方法可根据可用数据动态自动填充公式？*

Answer 1

正如SJR的评论中所提到的，Lastrow的值是1.为了解决它，只需写下：

If Lastrow = 1 Then Lastrow = 2
Range("DK2:DK" & Lastrow).Formula = "=TIMEVALUE(DH2)"