Добрый день уважаемые знатоки Excel и VBA в частности.
На работе нужен макрос, который бы проверял каждую строчку в столбце I и удалял лишние пробелы в каждой ячейке данного столбца, если они конечно есть.
Вот написал следующий код:
Макрос успешно справляется со своей задачей, но работает очень долго, в особенности когда объем файла превышает 100 строк.
Помогите пожалуйста оптимизировать код так, чтобы макрос работал быстрее, если это возможно.
Спасибо.
На работе нужен макрос, который бы проверял каждую строчку в столбце I и удалял лишние пробелы в каждой ячейке данного столбца, если они конечно есть.
Вот написал следующий код:
Код |
---|
Sub DeleteSpaces() 'Удаляет лишние пробелы в столбце I Application.ScreenUpdating = False Dim poz As Range Dim Ans As Integer Dim Config As Integer Config = vbYesNo + vbQuestion + vbDefaultButton2 Ans = MsgBox("Вы действительно хотите удалить лишние пробелы во всех значениях столбца I ?" & Chr(13) & "Данное действие необходимо выполнять при каждом импорте новых значений", Config) Select Case Ans Case vbYes For Each poz In Range("I1:I2000" poz.Value = Trim$(poz) Next poz MsgBox "Ошибки успешно исправлены" & Chr(13) & "*лишние пробелы удалены" Case vbNo End Select End Sub |
Помогите пожалуйста оптимизировать код так, чтобы макрос работал быстрее, если это возможно.
Спасибо.