Сбор матриц неодинаково отстоящих друг от друга

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

Сбор матриц неодинаково отстоящих друг от друга (Макросы/Sub)

rosko

Дата: Пятница, 18.07.2014, 13:02 | Сообщение № 1

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

Ранг: Участник

Сообщений: 58

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

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

Excel 2010

Здравствуйте, помогите пожалуйста
На листе вертикально расположены множество матриц 1*3 и соседние могут отставать на различное число строк (иногда на 4, иногда на 125), хотелось бы собрать все эти матрицы в одну, число столбцов последней, соответственно, =3. В прикрепленном файле зеленой заливкой выделен желаемый результат.
Заранее спасибо за внимание и помощь!

К сообщению приложен файл: 6280439.xlsx (9.3 Kb)

Ответить

_Boroda_

Дата: Пятница, 18.07.2014, 13:13 | Сообщение № 2

Группа: Админы

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

Сообщений: 16957

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Sub tt()
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

[/vba]

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

Ответить

rosko

Дата: Пятница, 18.07.2014, 16:15 | Сообщение № 3

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

Ранг: Участник

Сообщений: 58

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

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

Excel 2010

В файле с примером отлично работает, но в полном выдает "Не найдено ни одной ячейки, удовлетворяющей указанным условиям".
Может быть это из-за того, что промежутки пустых строк местами значительные (по 125 или в разы больше)? К сожалению, полный файл не прикрепить - т.к. много весит.

Ответить

Сбор матриц неодинаково отстоящих друг от друга (Макросы/Sub)

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