Страницы: 1
RSS
Автоматическая нумерация строк с текстом
 
Здравствуйте, уважаемые форумчане!

Подскажите, пожалуйста, есть ли в Excel возможность автоматически пронумеровать строки, содержащие текст (вставить номер по порядку, в том числе многоуровневый).

Файл с примером прилагаю.

Заранее спасибо!
 
Добрый день!
Как вариант.
Код
=СЖПРОБЕЛЫ(ПРАВСИМВ(ПОДСТАВИТЬ(E3;" ";ПОВТОР(" ";ДЛСТР(B3)));ДЛСТР(B3)))&"."&" "&B3
Изменено: Stics - 01.08.2019 17:34:41
 
Stics, спасибо!

Если я правильно понимаю, моя задачка решается только с использованием формулы и ссылки на исходный массив. Автоматической нумерации (как в Word :) ) без формирования нового массива данных не получится? Что-то наподобие нумерованного списка в Word.
 
Цитата
Tatirus написал:
Автоматической нумерации
Можно макрос сделать
 
Как вариант, вот такой:
Код
Sub t()
k1 = 1
k2 = 1
x = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
    For i = 3 To x
        If Sheets(1).Cells(i, 2).IndentLevel = 0 Then
            k2 = 1
            Sheets(1).Cells(i, 2) = k1 & ". " & Sheets(1).Cells(i, 2)
            k1 = k1 + 1
        Else
        If Sheets(1).Cells(i, 2).IndentLevel > 0 Then
            Sheets(1).Cells(i, 2) = Left(Sheets(1).Cells(i - 1, 2), 1) & "." & k2 & ". " & Sheets(1).Cells(i, 2)
            k2 = k2 + 1
        End If
        End If
    Next

End Sub
 
GRIM, спасибо!
Страницы: 1
Наверх