Автоматически заполнять поле идентификатора новой строки

В Excel есть ли способ автоматически заполнять/увеличивать значение в столбце, когда в том же ряду заполнен другой столбец? Например, предположим, у меня есть столбцы ID и Имя. Когда я заполняю столбец имени для новой строки, я хочу, чтобы столбец ID в том же ряду автоматически заполнился следующим номером (т.е. предыдущий ID + 1). Я не хочу копировать формулу или как-либо взаимодействовать с полем ID.

Возможно ли это?

Спасибо,
Стивен

По волшебству? Такого в Excel или любой другой таблице нет.

=IF(AND(A1<>"";B2<>"");A1+1;"") <- Введите в A2 и “протяните вниз”

Например, скопируйте A2 (т.е. поставьте курсор в A2, CTRL+C), затем…

Вставьте, CTRL+V, в столько строк, сколько хотите, в столбце A.

Заполните значение в A1, введите что-то в B1 – первой строке.
Затем введите что-то в B2, B3, B4 …

Максимум – это ВСЕ строки, что может замедлить вашу таблицу

Тем не менее, это действительно быстро делается:

Excel:
нажмите End, удерживайте SHIFT, нажмите Курсор вниз, отпустите SHIFT,
CTRL+V, End, Курсор вверх

LibreOffice:
удерживайте SHIFT и CTRL, нажмите Курсор вниз, отпустите
CTRL+V, удерживайте CTRL, нажмите Курсор вверх

… и у вас будет формула во всех ячейках столбца A, кроме A1.

Если вы умеете работать с VBA, приведенный ниже код является хорошей отправной точкой. Его следует вставить в объект листа, где вы хотите, чтобы это поле ID было. Это не идеально, и вам следует попытаться понять его, прежде чем копировать/вставлять, чтобы убедиться, что он будет работать для вас. Он отслеживает конкретный столбец на наличие изменений. Каждый раз, когда что-то в этом столбце меняется, он проверяет другую ячейку в той же строке. Если эта другая ячейка пустая, он заполняет ее максимальным значением из того столбца плюс один. Это создает числовой уникальный ID в определенном столбце.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    ' Настройте столбцы, которые вам важны здесь
    Const nameColumnLetter = "D"
    Const idColumnLetter = "A"
    
    ' Объявите некоторые переменные для более легкого обращения позже
    ' Это не обязательно, но это упрощает код в следующем разделе
    Dim idCell As Range
    Dim idColumn As Range
    Dim nameColumn As Range
    Set idCell = Range(idColumnLetter & Target.Row)
    Set idColumn = Range(idColumnLetter & ":" & idColumnLetter)
    Set nameColumn = Range(nameColumnLetter & ":" & nameColumnLetter)
    
    ' Проверьте, находится ли измененная ячейка в столбце Имя
    If Not Intersect(Target, nameColumn) Is Nothing Then
        ' Проверьте, пустой ли столбец ID
        If Len(idCell.Value) = 0 Then
            ' Установите значение ID на максимум этого столбца плюс один
            idCell.Value = Application.WorksheetFunction.Max(idColumn) + 1
        End If
    End If
    
End Sub

Как добавить VBA в MS Office?

Вы можете подойти к этому как минимум двумя другими способами:

1. Превратите диапазон данных в формальную таблицу Excel. Поставьте формулу в столбце ID, которая смотрит на ячейку выше и добавляет 1. Каждый раз, когда вы вводите что-либо в следующую пустую строку, Excel добавит эту строку в таблицу. Когда это произойдет, он рассчитает/заполнит ячейку ID для этой строки. QED.

2. Если отсутствие таблицы является желаемым или необходимым (это может быть по как минимум двум действительно веским причинам: вы не хотите, чтобы другие столбцы заполняли формулы вниз, потому что эти формулы могут отличаться или вообще не нужны, и если вы не хотите, чтобы работа с ID была проблемой, вы не хотите, чтобы проверка и/или редактирование формул каждой строки добавляло больше хлопот, или, совершенно другая вещь, вам нужны динамические массивные формулы, и, ну, в таблице просто не может быть таких формул), вы можете выполнить работу сами.

Вы бы поместили правильную формулу в столбец ID и заключили ее в IF. Идея заключалась бы в том, чтобы объединить все ячейки других столбцов в этой строке (&, CONCATENATE, CONCAT, TEXTJOIN… что угодно, что лучше всего работает для вас), а тест IF будет равно ли это "", и если да, выводить "" так, чтобы ячейки были пустыми, а если нет, тогда выполнять расчет “строка выше + 1”, чтобы это заполнило.

Возможно, вы сможете сделать это динамической массивной формулой, так что вам не придется беспокоиться о заполнении нескольких сотен или тысяч дополнительных строк/ячейок, чтобы думать об этом только раз в год или два. Это было бы совсем не просто, но возможно.

Существует действительно простая формула, которую можно использовать, если ваши данные отформатированы как таблица. Если предположить, что строка 1 это заголовки столбцов, а ваши данные начинаются со строки 2, введите:

=ROW([@ID])-1

• @ID это любое имя столбца с данными.
• -1 используется, потому что над началом данных есть одна строка. Если данные начинаются с 3-й строки, тогда используйте -2 и так далее.