Упростить макрос.

[KOSTIK1]

Дорого времени суток.
Есть макрос, но работает долго. Можно ли его упростить или улучшить?

Dim i As Integer
    For i = 35 To 5 Step -1
        If Not Weekday(Cells(i, 1)) = 7 Or Weekday(Cells(i, 1)) = 1 Then Cells(i, 2).Value = "8": Cells(i, 3).Value = "30": Cells(i, 4).Value = "17": Cells(i, 5).Value = "00"
    Next i

Спасибо заранее.

[EducatedFool]

долго? доли секунды - это долго?

ускорить можно, - но какой смысл?

вот так, во много раз быстрее будет (сотые доли секунды)

Sub test()
    Dim i As Long, arr
    arr = Range("a5:e35").Value

    For i = LBound(arr) To UBound(arr)
        If Not Weekday(arr(i, 1)) = 7 Or Weekday(arr(i, 1)) = 1 Then
            arr(i, 2) = 8: arr(i, 3) = 30
            arr(i, 4) = 17: arr(i, 5) = 0
        End If
    Next i
    Range("a5:e35").Value = arr
End Sub

[KOSTIK1]

Спасибо - EducatedFool.!

Файл большой и поэтому работает около 4-6 секунд в зависимости от компа, ваш 0,5 сек.

Немного подправил.

For i = LBound(arr) To UBound(arr)     
        arr(i, 2) = 8: arr(i, 3) = 30: arr(i, 4) = 17: arr(i, 5) = 0
        If Weekday(arr(i, 1)) = 1 Or Weekday(arr(i, 1)) = 7 Or arr(i, 1) = "" Then
            arr(i, 2) = "": arr(i, 3) = ""
            arr(i, 4) = "": arr(i, 5) = ""
        End If
    Next i

[Hugo121]

Так не будет быстрее?

    For i = LBound(arr) To UBound(arr)
        t = Weekday(arr(i, 1))
        Select Case True
            Case t = 1
            Case t = 7
            Case arr(i, 1) = ""
            Case Else
                arr(i, 2) = 8: arr(i, 3) = 30: arr(i, 4) = 17: arr(i, 5) = 0
        End Select
    Next i

[KOSTIK1]

Спасибо и вам - Hugo121!
Тоже шустро справляется.