用VBA计算公式直到最后一行

我下面的代码只给出了2行的输出，rest它没有得到应用不知道为什么？ 公式需要从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 

Answer 1

你没有看J列的最后一行 – 尝试改变这一点

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

对此

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