计算公式是否使用 VBA 直到最后一行答案

【问题标题】：Count if formula with VBA till last row计算公式是否使用 VBA 直到最后一行
【发布时间】：2015-03-20 19:34:11
【问题描述】：

我下面的代码只给出了 2 行的输出，其余的它没有被应用不知道为什么？公式需要从 K20 应用到相邻列 (J) 的最后一行。有人可以帮我纠正它。谢谢！

Sub SortS()
Range("K19").Select
ActiveCell.FormulaR1C1 = "Sort"

With Sheets("Sheet1")
rowlast = .Range("K" & .Rows.Count).End(xlUp).Row
With .Range("K20:K" & rowlast)
    .Formula = "=IF(COUNTIF(RC[-6]:RC[-2],""S"")>0,1,0)"
    .Value = .Value
End With
End With

End Sub

【问题讨论】：

标签： vba excel

【解决方案1】：

您没有查看最后一行的 J 列 - 尝试更改此设置

rowlast = .Range("K" & .Rows.Count).End(xlUp).Row

到这里

rowlast = .Range("J" & .Rows.Count).End(xlUp).Row

【讨论】：