Всех приветствую!
Помогите советом, пожалуйста!
Мне для корректной работы формул требуется удалить лишние пробелы. Решил использовать макрос. Вообще желательно бы, чтобы удаление лишних пробелов было во всей умной таблице, ячейки A:F. Но при запуске вышла следующая ошибка: Application-defined or object-defined error.
Думал, что дело в столбце F, в котором находятся формулы. Для проверки ограничил диапазон до столбца B:B. Код сработал!
Я снова увеличил диапазон до A:B - работает. снова увеличиваю до A:D (решаю последний столбец не вносить, лишних пробелов там быть не может, ведь значения в ячейках определяются формулами) - НЕ работает, снова ошибка.
В итоге пока писал это сообщение попробовал еще раз очистить пробелы в диапазоне A:F и сработало! НО!!! макрос удалил умную таблицу, оставив просто ячейки с данными, соответственно все ячейки, которые ссылались на диапазон умной таблицы, слетели. Подскажите, что это была за ошибка, из-за которой макрос то работает, то нет? Почему макрос удалил умную таблицу? Каким образом отладить эту систему?
Вписал следующий код:
Sub triming()
Dim trim_range As Range
Set trim_range = Range("B:B")
trim_range.Select
With Selection
.Value = Application.Trim(.Value)
End With
End Sub
Помогите советом, пожалуйста!
Мне для корректной работы формул требуется удалить лишние пробелы. Решил использовать макрос. Вообще желательно бы, чтобы удаление лишних пробелов было во всей умной таблице, ячейки A:F. Но при запуске вышла следующая ошибка: Application-defined or object-defined error.
Думал, что дело в столбце F, в котором находятся формулы. Для проверки ограничил диапазон до столбца B:B. Код сработал!
Я снова увеличил диапазон до A:B - работает. снова увеличиваю до A:D (решаю последний столбец не вносить, лишних пробелов там быть не может, ведь значения в ячейках определяются формулами) - НЕ работает, снова ошибка.
В итоге пока писал это сообщение попробовал еще раз очистить пробелы в диапазоне A:F и сработало! НО!!! макрос удалил умную таблицу, оставив просто ячейки с данными, соответственно все ячейки, которые ссылались на диапазон умной таблицы, слетели. Подскажите, что это была за ошибка, из-за которой макрос то работает, то нет? Почему макрос удалил умную таблицу? Каким образом отладить эту систему?
Вписал следующий код:
Sub triming()
Dim trim_range As Range
Set trim_range = Range("B:B")
trim_range.Select
With Selection
.Value = Application.Trim(.Value)
End With
End Sub