Как пронумеровать обьедененные ячейки

[m_v_v]

Как пронумеровать столбец если есть обьедененные ячейки?

[EducatedFool]

Очень просто.
Выделяете объединённые ячейки по одной, и вводите в них цифры...

[m_v_v]

Не думаю что это единственный метод, хотелось бы автоматизировать процес, я переносил таблицу в Ворд и номеровал с помощью маркера, но потом возникают проблемы при перекидке таблицы с ворда

[EducatedFool]

Так и надо было сразу сказать, что нужен макрос.

Что должно получиться в результате?
Как именно нумеровать ячейки?

Так, что ли?

Sub НумерацияОбъединённыхЯчеек()
    On Error Resume Next: i = 1
    Dim sh As Worksheet, cell As Range, ra As Range: Application.ScreenUpdating = False
    For Each sh In ActiveWorkbook.Worksheets
        Set ra = sh.UsedRange
        For Each cell In ra.Cells
            If cell.MergeCells And Len(cell.MergeArea.Cells(1)) = 0 Then _
               cell.MergeArea.Cells(1) = i: i = i + 1
        Next cell
    Next sh
    Application.ScreenUpdating = True
End Sub

PS: А здесь есть макрос для окрашивания всех объединённых ячеек.

[m_v_v]

Огромное спасибо за макрос. Я не коректно поставил задание, извините, но нужен макрос который бы нумеровал все ячейки, т.е. обьедененные чередуются с необьедененными.

[EducatedFool]

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

Вот теперь задание точно некорректное...

На каждом листе Excel 2003 имеется 16777216 ячеек (в Excel 2007 - намного больше)
Вы уверены, что макрос должен пронумеровать ВСЕ ячейки?

Если Вам лень подробно описать задачу - то и макроса Вы не дождётесь.

[m_v_v]

Есть таблица 1000 рядков на 10 столбцов, первый идет номер по порядку, некоторые ячейки обьденены между собой, надо пронумеровать ячейки в первом столбце, по порядку. Пример прилагаю

[EducatedFool]

Вот с этого и надо было начинать...

Проверяйте:



PS: Скрытые строки тоже нумеруются.

[m_v_v]

Огромное спасибо, именно то что нада

[m_v_v]

А подскажите вариант чтобы скрытые строки не нумеровались