Проблема объединённых ячеек при сортировке.

[SS78RUS]

Приветствую!

Появилась необходимость поработать с очередным "небольшим" реестром.
Загвоздка в нём следующая: как известно, для сортировки ячейки должны быть "одинакового размера".
В этом же архиве в столбце с 14-го по 19-й (наименование товаров - сумма) есть контракты с множеством товаров и, если отменить группировку ячеек в документе, то строки с заполненными 14-19-ми ячейками становятся пустыми в остальных полях.
Собственно вопрос - как сделать так, чтобы при отмене группировки ячеек, поля, ставшие пустыми, заполнялись данными из изначального источника, т.е получается чтобы ячейки с 14-й по 19-ю были разные, а остальные - одинаковые.

Не очень прозрачно написал, но пример реестра прикладываю - с ним будет понятней о чём я 

[_Boroda_]

 Выделяем весь блок, разъединяем все, далее Главная - Найти и выделить - Выделение группы ячеек - Пустые ячейки - ОК. Затем жмем равно (=), стрелочку вверх и Контрл +Ентер (сразу). Потом опять выделяем весь блок, копируем и вставляем значениями.
Я для этого написал такой простенький макрос (положил его в Персонал и вывел кнопку на ПБД)

Код Выделить Развернуть

Sub Zapolnenye_Null()
   n = Selection.Address
On Error GoTo A
   g = 1 / (Range(n).Cells.Count - 1)'проверка, что выделено несколько ячеек
   Selection.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"'все то, что написано в посте текстом
   Range(n) = Range(n).Value
A:     Exit Sub
End Sub

[SS78RUS]

Спасибо! Как всегда всё гениальное просто 

НО есть загвоздка: в файле, который я прикрепил, макрос работает "на ура", а в полной базе после разъединения ячеек и применения макроса все ячейки заполняются данными из первой строки над выделенным интервалом.. Что я сделал не так, или чего НЕ сделал?

[_Boroda_]

Забыл предупредить - в Excel есть ограничение на количество одновременно выделенных несвязанных диапазонов. Не помню, сколько, да это и не важно. Просто следите за тем, чтобы одновременно было выделено для заполнения не более 10-15 тысяч строк (опытным путем определите - зависит еще и от количества столбцов).

[SS78RUS]

Да, именно в этом и была проблема, спасибо!

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

[nilem]

а вот так долго будет?

Код Выделить Развернуть

Sub ert()
Dim r As Range, adr$
If Selection.Count > 10000 Then MsgBox "Лишка Selection", 64: Exit Sub
Application.ScreenUpdating = 0
For Each r In Selection.Cells
    If r.MergeCells Then
        With r
            adr = .MergeArea.Address
            r.UnMerge: r.AutoFill Range(adr), 1
        End With
    End If
Next r
Application.ScreenUpdating = 1
End Sub

[_Boroda_]

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

Возможно. Варианты:
1) Нефиг начинать с пустой сверху ячейки. Этим Вы нарушаете истинность вот этого:

Выделяем весь блок, разъединяем все, далее Главная - Найти и выделить - Выделение группы ячеек - Пустые ячейки - ОК. Затем жмем равно (=), стрелочку вверх и Контрл +Ентер (сразу). Потом опять выделяем весь блок, копируем и вставляем значениями.

2) Добавить после строки с Еррором такую
q = 1 / (Selection.Range("A1") <> "")

[SS78RUS]

Объединил оба макроса - за час обработал реестр из 50'000 контрактов (более 1'000'000 ячеек), впереди еще 450'000, так что очень пригодится!
Большое спасибо за помощь! Всё работает!