Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Объединение ячеек в заголовке таблицы, Как быстро объединить ячейки в заголовке таблицы
 
Добрый день! Подскажите, пожалуйста, как быстро объединить ячейки в заголовки таблицы. Прикрепляю пример. В примере два листа: "Как должно быть" и "Как есть". После выгрузки таблицы приходится вручную 32 раза (по кол-ву магазинов) объединять ячейки в заголовке, а хотелось бы этот процесс ускорить. Я конечно знаю, что объединение ячеек это зло, но начальство архаично и требует именно такой формат таблиц.
 
макросом:
Код
Sub ggg()
    Dim lCol&, i&
    
    With ActiveSheet
        lCol = .Cells(1, .Columns.Count).End(xlToLeft).Column - 1
        For i = 15 To lCol Step 4
            .Cells(2, i).Resize(1, 4).Merge
        Next i
        .Range(.Cells(2, "O"), .Cells(2, lCol - 1)).HorizontalAlignment = xlCenter
        .Range(.Cells(2, "O"), .Cells(2, lCol - 1)).VerticalAlignment = xlCenter
    End With
End Sub
Учимся сами и помогаем другим...
 
Выделить диапазон, выполнить
Код
Sub tt()
    Dim i&
    Application.ScreenUpdating = False
    For i = 1 To Selection.Cells.Count Step 4
        Range(Selection(i), Selection(i + 3)).Merge
    Next
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 90
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
    Application.ScreenUpdating = True
End Sub

Изменено: Hugo - 6 Мар 2015 11:44:10 (Забыл про формат... Добавил.)
 
ber$erk, Hugo,
Спасибо вам огромное! Макрос Hugo заработал, а макрос ber$erk почему то нет, может я неправильно его вставляю в книгу макросов (слаб я в этом). Спасибо ребята огромное!!!
 
у меня все работает
Учимся сами и помогаем другим...
 
У меня тоже заработало! Прошу прощения, не так сохранял проект...
Страницы: 1
Читают тему (гостей: 1)