очень медленное заполнение листа в Excel

[Mikeb]

из txt-файла считываю значения на лист Excel
код:
mySplit = Split(repl, ":")
Max = UBound(s)
For i = 0 To Max - 1
myRow = Fix(i / 10)
Cells(myRow+1, i - myRow * 10 + 1).Value = mySplit (i)
Next

работает, но только ОЧЕНЬ долго - не пойму в чем дело?

у кого какие мысли?

[KL]

Честно говоря, смысл твоего кода от меня ускользает, но попробуй просто устранять помехи. Что-то в этом духе:

Код: Выделить всё

Sub test()
    Dim repl As String
    Dim s(1 To 4) As Long
    Dim MySplit As Variant
    Dim myRow As Long
    Dim i As Long
   
    repl = "22:33:31:55"
    For i = 1 To 4
        s(i) = i
    Next i
   
    MySplit = Split(repl, ":")
   
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
   
    For i = 0 To UBound(s) - 1
        myRow = Int(i / 10)
        Cells(myRow + 1, i - myRow * 10 + 1).Value = MySplit(i)
    Next i
   
    With Application
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub