问自动填充公式直到最后一行
EN

Stack Overflow用户

提问于 2020-09-16 15:59:28

回答 1查看 46关注 0票数 0

IF(ISBLANK(B5),"",IF(ISBLANK(O5)=TRUE,"Missing PSD",TODAY()-O5))

这是我的公式，用于计算列O中的日期与当前日期之间的差值。我使用值填充的第一行是5。在其中执行公式计算的行是AC。我希望自动计算到最后填充的行，并且行值也应该像向下拖动时一样递增。

我不是很好的VBA，所以任何帮助都会非常感谢。

vba

excel

回答 1

Stack Overflow用户

回答已采纳

发布于 2020-09-16 16:21:50

请尝试下一个代码：

Sub testFilFormulaDown()
 Dim sh As Worksheet, lastRow As Long
 
 Set sh = ActiveSheet 'use here the necessary sheet
 lastRow = sh.Range("O" & rows.count).End(xlUp).row 'chosen O:O column, being involved in the formula...
 sh.Range("AC5:AC" & lastRow).Formula = "=IF(ISBLANK(B5),"""",IF(ISBLANK(O5)=TRUE,""Missing PSD"",TODAY()-O5))"
End Sub

为了正确计算最后一行，您必须选择一个完全填充的列(A:A，C:C等)。我使用了公式中涉及的一个，但由于有对空白单元格的检查，O:O列可能不是最合适的一个……

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/63915603

复制

相似问题

问自动填充公式直到最后一行
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问自动填充公式直到最后一行EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问自动填充公式直到最后一行
EN