vba - 自动填充公式

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)"