Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

Перенос / разгруппирование данных

Автор vater, 17.07.2012, 18:22

« назад - далее »

vater

Проблема заключается в том, что нужно разруппировать исходные данные. Массивы одинаковой размерности. Пытался делать через .Offset, но не уверен правильно ли, да и по каждой ячейки переносить - долго и возможна ошибка.
В приложении файл с исходными данными и конечным результатом.

Шпец Докапыч

Разгруппировка в три приёма:
Sub ШД_Разруппировка()
   LR = [A65536].End(xlUp).Row
   Columns("A:A").Insert
   With Range("A6:A" & LR)
     .FormulaR1C1 = "=IF(ISNUMBER(R[-1]C[1]),R[-1]C[1],"""")"
     .Value = .Value
   End With
   Range("C5:D" & LR).SpecialCells(4).EntireRow.Delete
End Sub
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли