Не затереть данные.

[Deman4eg]

Добрый день всем. Помогите пожалуйста решить одну проблему эстетического характера. Имеем длиннющий столбец цыфр следующего вида
15,46
3,00
(пустая ячейка)
17,84
1,79
(пустая ячейка)
и т.д. и т.п.
, нужно объединить каждую стоящую перед пустой ячейкой цыфру (в данном случае 3,00 и 1,79) и пустую ячейку в одну объединенную ячейку с переносом в эту объединенную ячейку этих данных (3,00 и 1,79) начиная с ячейки F:3006.

[SAS888]

Например, так:

Sub Merg()

    Dim i As Long
    For i = 3006 To Cells(Columns("F").Rows.Count, "F").End(xlUp).Row
        If Cells(i, "F") = "" Then Range(Cells(i, "F"), Cells(i - 1, "F")).Merge
    Next

End Sub

[Deman4eg]

Сообщение от SAS888

Например, так:

Sub Merg()

    Dim i As Long
    For i = 3006 To Cells(Columns("F").Rows.Count, "F").End(xlUp).Row
        If Cells(i, "F") = "" Then Range(Cells(i, "F"), Cells(i - 1, "F")).Merge
    Next

End Sub

SAS888 большое спасибо Вам. Реально выручили. Удачи Вам во всем.