Добрый день.
Этот цикл выполняется очень долго, кто подскажет почему? LastRowForecast =~ 5000
Этот цикл выполняется очень долго, кто подскажет почему? LastRowForecast =~ 5000
Код |
---|
For X = 39 To LastRowForecast Dim strData As String strData = Range("AI" & X).Value strData = UCase(Left(strData, 1)) & LCase(Mid(strData, 2)) Range("AI" & X).Value = strData Next X |