Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Объединение ячеек в заголовке таблицы, Как быстро объединить ячейки в заголовке таблицы
 
#1
06.03.2015 11:15:21
Добрый день! Подскажите, пожалуйста, как быстро объединить ячейки в заголовки таблицы. Прикрепляю пример. В примере два листа: "Как должно быть" и "Как есть". После выгрузки таблицы приходится вручную 32 раза (по кол-ву магазинов) объединять ячейки в заголовке, а хотелось бы этот процесс ускорить. Я конечно знаю, что объединение ячеек это зло, но начальство архаично и требует именно такой формат таблиц.
 
 
 
#2
06.03.2015 11:31:57
макросом:
Код
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
Учимся сами и помогаем другим...
 
 
 
#3
06.03.2015 11:32:46
Выделить диапазон, выполнить
Код
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 - 06.03.2015 11:44:10 (Забыл про формат... Добавил.)
 
 
 
#4
06.03.2015 11:48:46
ber$erk, Hugo,
Спасибо вам огромное! Макрос Hugo заработал, а макрос ber$erk почему то нет, может я неправильно его вставляю в книгу макросов (слаб я в этом). Спасибо ребята огромное!!!
 
 
 
#5
06.03.2015 12:07:53
у меня все работает
Учимся сами и помогаем другим...
 
 
 
#6
06.03.2015 13:47:37
У меня тоже заработало! Прошу прощения, не так сохранял проект...
 
 
 
Страницы: 1
Наверх