Выделение строк в объединенной ячейке

@caustic · Регистрация: 30.09.2011

Студворк — интернет-сервис помощи студентам

Добрый день!
подскажите пожалуйста решение задачки.

есть строчки в столбце, объединенные в ячейки (по кол-ву объединенных ячеек - везде разное, периодически изменяется). в этих ячейках - некие начения, они не меняются

как, используя макрос, выделить:

с 3ей до последней строчки в первой объединенной ячейке.
далее отступив 3 строчки вниз от предыдущей ячейки, так же выделить до конца второй объединенной ячейки... бла бла бла..

в общем думал, думал как объяснить, сделал на втором листе приложенной книги то, чего я хочу, а именно:

сгруппировать эти строчки, оставив в качестве "шапки" первые 3 строчки. (не знаю на xls будет ли отображаться группировка)

опять же адреса относительные, строчки будут добавляться/удаляться. а объединение будет на месте)

поэтому нижепредставленный макрос с абсолютным адресом строк - не подойдет:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub Macros1()
 
    Rows("4:7").Select
      Selection.Rows.Group
    Rows("11:12").Select
      Selection.Rows.Group
    Rows("16:19").Select
      Selection.Rows.Group
    Rows("23:29").Select
      Selection.Rows.Group
End Sub

@caustic · 10.12.2012, 21:19 **[ТС]**

решение найдено:

Visual Basic
1
2
3
4
5
6
7
8
9
Sub MyGrouping()
 
Cells(1, 1).Select
Do While Selection.Row <= Cells(Rows.Count, 1).End(xlUp).Row
Rows(Selection.Row + 3 & ":" & Selection.Row + Selection.Rows.Count - 1).Group
Cells(Selection.Row + Selection.Rows.Count, 1).Select
Loop
 
End Sub

toiai · 10.12.2012, 22:19

Вот вариант группировки объединенных ячеек по рядам:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub GroupMerge()
    Dim i As Integer, k As Integer
    With ActiveSheet
        .Outline.SummaryRow = xlAbove
        For i = 1 To .UsedRange.Rows.Count
            If .Cells(i, 1).MergeCells Then
                k = .Cells(i, 1).MergeArea.Rows.Count
                .Range(.Cells(i + 1, 1), .Cells(i + k - 1, 1)).Rows.Group
                i = i + k - 1
            End If
        Next
    End With
End Sub

@SlavaRus · 10.12.2012, 23:38

Еще вариант

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Const RowOffset = 3
Dim rngTemp As Range
 
Set rngTemp = ActiveSheet.Range("a2")   'Íà÷àëüíàÿ ÿ÷åéêà
 
    While rngTemp.MergeCells
        With rngTemp.MergeArea
            Range(Cells.Rows(.Row + RowOffset), Cells.Rows(.Row + .Rows.Count - 1)).Group
        End With
        Set rngTemp = rngTemp.Offset(1, 0)
    Wend
 
Worksheets("Ëèñò1").Outline.ShowLevels rowLevels:=1

Новые блоги и статьи Все статьи Все блоги /
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Номеклатура. . .