使用vba排名数据

Question

我来问你的帮助我需要使用vba对数据进行排名我在D列中有一个结果块，我想在E列中对它们进行排名而不会滑动任何值，所以我尝试了这个vba代码，但它只给了我零在所有列然后我的电脑becom慢，直到我关闭excel文件这是我正在使用的vba代码，如果有人可以帮助我：

Sub Mactro5()
LastRow = Range("D" & Cells.Rows.Count).End(xlUp).Row
Range("E2:E" & LastRow).Formula = _
    "=IF(D2=" & Chr(34) & Chr(34) & "," & Chr(34) & Chr(34) & ",SUMPRODUCT((D$2:D$" & LastRow & ">D2)/COUNTIF(D$2:D$" & LastRow & ",D$2:D$" & LastRow & "&" & Chr(34) & Chr(34) & "))+1)"
End Sub