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

Пользователь

Сообщений: 31 Регистрация: 01.01.1970

10.12.2012 17:59:29

Добрый день!
Прошу помочь в с одним небольшим макросом.

в приложении книга. на 1 листе - то что есть, на 2ом - то что надо сделать. а именно, сгруппировать объединенные строками ячейки, оставив первые 3 строчки в качестве шапки. (не уверен что в 2003 Excel есть группировка)

ниже макрос, он бесполезный, ибо работает с абсолютными адресами ячеек.

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

вопрос: как научить его правильно выделить эту область

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

P.S. строчки в объединенных ячейках будут добавляться со временем поэтому абсолютные координаты не подойдут

спасибо!

Прикрепленные файлы

post_384209.xls (21 КБ)

caustic

DEAD MAN

Пользователь

Сообщений: 145 Регистрация: 24.12.2012

10.12.2012 20:45:26

Добрый день.

Вот мой бред, но вроде работает:
Sub MyGrouping()

Cells(1, 1).Select
Do While Selection.Row <= Cells(Rows.Count, 1).End(xlUp).Row
Rows(Selection.Row + 1 & ":" & Selection.Row + Selection.Rows.Count - 1).Group
Cells(Selection.Row + Selection.Rows.Count, 1).Select
Loop

End Sub

Пользователи, как школьники, учиться хотят далеко не все, а отличниками становятся единицы.
Проблема - это ситуация, в решении которой человек не заинтересован.

caustic007 Пользователь Сообщений: 31 Регистрация: 01.01.1970	#3 10.12.2012 21:17:58 спасиб! ) то, что надо! caustic

Читают тему