Добрый вечер всем !
В книге 2 листа: лист "УчетДокументов" и лист "Выполнено"
В столбце А обоих листов находится нумерация строк - при этом нумерация уникальна:
те на обоих листах нет повторяющихся (одинаковых) номеров
Как на листе "УчетДокументов" в столбце А в первую незаполненную ячейку внести уникальный номер по условию:
собрать все номера внесенные на обоих листах в столбце А, вычислить последний самый больший номер N и присвоить в новую строку
номер N+1 ?
Макрос начал делать - но пока только определение 1 незаполненной ячейки
Файл с примером прилагаю.
В книге 2 листа: лист "УчетДокументов" и лист "Выполнено"
В столбце А обоих листов находится нумерация строк - при этом нумерация уникальна:
те на обоих листах нет повторяющихся (одинаковых) номеров
Как на листе "УчетДокументов" в столбце А в первую незаполненную ячейку внести уникальный номер по условию:
собрать все номера внесенные на обоих листах в столбце А, вычислить последний самый больший номер N и присвоить в новую строку
номер N+1 ?
Макрос начал делать - но пока только определение 1 незаполненной ячейки
Код |
---|
Sub ПронумероватьСтолбецА() Application.ScreenUpdating = False 'чтоб не моргало выключаем скрин Application.EnableEvents = False Dim i As Long, LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row Cells(LastRow + 1, 1).Select 'Cells(LastRow + 1, 1).Value = ..... макрос выбора уникального номера .... Application.EnableEvents = True Application.ScreenUpdating = True End Sub |
Файл с примером прилагаю.