Снятие всех выделений и объединений со всего листа.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Снятие всех выделений и объединений со всего листа. (Макросы/Sub)

ZamZan

Дата: Среда, 25.02.2015, 11:45 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Помогите написать макрос.
Я выгружаю отчет из 1с в Excel и первым делом выделяю весь лист и снимаю все объединения и переносы текста.
Рекордером не получается записать макрос, выдает ошибку Procedure too large.
Эту операцию приходится делать довольно часто, поэтому хотелось бы использовать макрос.

Спасибо.

Ответить

_Boroda_

Дата: Среда, 25.02.2015, 12:37 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Я для 1С-ок использую такой макрос
[vba]

Код

Sub FormatsDel()
     On Error Resume Next
     With Selection
         .WrapText = False
         .MergeCells = False
         .Font.ColorIndex = xlAutomatic
         .Interior.Pattern = xlNone
         .Borders.LineStyle = xlNone
         .EntireRow.AutoFit
         .Rows.Ungroup
     End With
     On Error GoTo 0
End Sub

[/vba]
Если что не нужно, то можно убрать

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

ZamZan

Дата: Среда, 25.02.2015, 12:38 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

legas, спасибо огромное, все работает.

Извиняюсь, что не поздоровался.
Файл не стал прикреплять, т. к. посчитал, что проблема общая.

Впредь буду соблюдать правила.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Снятие всех выделений и объединений со всего листа. (Макросы/Sub)

Страница 1 из 1
1