Question

我的下面的代码只提供了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

Answer 1

你最后一行没有看J列 - 试着改变这个

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

到这个

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

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

1 个答案: