Задача следующая: Есть файлы из 1С, которые нужно при помощи макроса быстро обрабатывать, а именно -
Необходимо, чтобы макрос автоматически выбирал всю область, делал разгруппировку, а затем убирал объединение всех ячеек. Далее хочу склеить этот макрос с добавлением, удалением ячеек.
[/vba] Последние 11 строк повторяет более 1000 раз, которые закрывается - [vba]
Код
End With Selection.UnMerge End Sub
[/vba]
У меня вопрос, подскажите, пожалуйста, как правильнее написать макрос для выделения конкретной области, которую надо разгруппировать, а потом выделяя весь этот же диапазон "убрать объединение всех ячеек"
И почему в моем макросе, который указал выше последние 11 строк повторяются более 1000 раз.
Спасибо, за понимание, я совсем новичок в этой области.
Коллеги, добрый день.
Задача следующая: Есть файлы из 1С, которые нужно при помощи макроса быстро обрабатывать, а именно -
Необходимо, чтобы макрос автоматически выбирал всю область, делал разгруппировку, а затем убирал объединение всех ячеек. Далее хочу склеить этот макрос с добавлением, удалением ячеек.
[/vba] Последние 11 строк повторяет более 1000 раз, которые закрывается - [vba]
Код
End With Selection.UnMerge End Sub
[/vba]
У меня вопрос, подскажите, пожалуйста, как правильнее написать макрос для выделения конкретной области, которую надо разгруппировать, а потом выделяя весь этот же диапазон "убрать объединение всех ячеек"
И почему в моем макросе, который указал выше последние 11 строк повторяются более 1000 раз.
Спасибо, за понимание, я совсем новичок в этой области.
без файла и с куском кода только так( на коленке), [vba]
Код
Sub GRUPP() lLastRow = Cells(Rows.Count, 1).End(xlUp).Row lLastCol = Cells(1, Columns.Count).End(xlToLeft).Column With Range(Cells(1, 1), Cells(lLastRow, lLastCol)) On Error Resume Next .UnMerge .Columns.Ungroup .Rows.Ungroup End With End Sub
[/vba]
без файла и с куском кода только так( на коленке), [vba]
Код
Sub GRUPP() lLastRow = Cells(Rows.Count, 1).End(xlUp).Row lLastCol = Cells(1, Columns.Count).End(xlToLeft).Column With Range(Cells(1, 1), Cells(lLastRow, lLastCol)) On Error Resume Next .UnMerge .Columns.Ungroup .Rows.Ungroup End With End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
