有没有更好的方法来编写这个VBA代码？

只是想知道是否有任何方法可以加快以下代码的速度？提前致谢

Sub Test()
Dim ws As Worksheet

Range("R28") = Mid(Range("Q7"), 55, 3) / 100
Range("R29") = Mid(Range("Q7"), 58, 3) / 100
Range("R30") = Mid(Range("Q7"), 61, 3) / 100
Range("R31") = Mid(Range("Q7"), 64, 3) / 100
Range("R32") = Mid(Range("Q7"), 67, 3) / 100
Range("R33") = Mid(Range("Q7"), 70, 3) / 100
Range("R34") = Mid(Range("Q7"), 73, 3) / 100
Range("R35") = Mid(Range("Q7"), 76, 3) / 100
Range("R36") = Mid(Range("Q7"), 79, 3) / 100
Range("R37") = Mid(Range("Q7"), 82, 3) / 100

End Sub

回答

With Range("R28:R37")
    .Formula = "=MID($Q$7, 55 + (ROW()-28) * 3, 3) / 100"
    .Value = .Value
End With

With Range("R28:R37")
    .Formula = "=MID($Q$7, 55 + (ROW()-" & .Row & ") * 3, 3) / 100"
    .Value = .Value
End With

回答

Dim cell As Range
For Each cell In Range("R28:R37")
    Dim i As Long

    cell.Value = Mid(Range("Q7").Value, 55 + i * 3, 3) / 100
    i = i + 1
Next