需求:
只需为具有数据的单元格自动填充公式。
解决方案:
通过 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
问题:
*现在公式也应用于第一行。如何排除标题行?
并且第一行的结果被填充到剩余的行中(尽管公式是相关的)。
或者有没有其他方法可以根据可用数据动态地自动填充公式?*
最佳答案
正如 SJR 在评论中提到的,Lastrow
的值是 1. 为了修复它,只需编写:
If Lastrow = 1 Then Lastrow = 2
Range("DK2:DK" & Lastrow).Formula = "=TIMEVALUE(DH2)"
关于vba - 自动填充公式,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48519858/