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

Question

Я пытаюсь адаптировать приложение для электронных таблиц, которое я разработал.

В текущем приложении используются пользовательские формы для ввода информации о пользователях в нескольких рабочих листах.Однако вместо того, чтобы импортировать все эти данные в базу данных SQL, мне было интересно, можно ли добавить одну «строку» одну за другой.

Два столбца на одном из листов имеют идентификаторэто установлено с префиксом (что-то вроде 080219001), а другой столбец имеет инкрементные значения, идущие в последовательности, такой как 1.1, 1.2, 2.1, 2.2, 3.1 и т. д.

Вот код, который я имею для одного излисты

'Open the destination file in case it was closed
Set carb = grids.Sheets("Carbonation") 'Worksheet the data will be exported to
Set etiqc = grids.Sheets("Carb Labels") 'Worksheet used to print Carbonation labels

'Last Filled Row and First Empty Row
FR = carb.Range("A" & Rows.Count).End(xlUp).Row
ER = FR + 1

'Data exported to GridsDB.xslx
carb.Range("B" & ER).Value = Requip.Text 'Equipment reference
carb.Range("C" & ER).Value = Lmembranes.Text 'Membranes lot
carb.Range("E" & ER).Value = Val(Density.Value) 'Density of the carbonation
carb.Range("F" & ER).Value = Val(txt_temperature.Value) 'Carbonation temperature
carb.Range("G" & ER).Value = Val(txt_humidity.Value) 'Carbonation humidity
carb.Range("H" & ER).Value = puidc.Text 'PUID
carb.Range("I" & ER).Value = Format(Now, "dd/MM/yyyy") 'Date of carbonation
carb.Range("J" & ER).Value = Format(Now, "dd/MM/yyyy") 'Date for comparison purposes
carb.Range("K" & ER).Value = Format(Now, "HH:mm:ss") 'Time of carbonation
carb.Range("L" & ER).Value = txt_comments.Text 'Carbonation comments
carb.Range("M" & ER).Value = Val(mnok.Value) 'Qty NOK membranes
carb.Range("N" & ER).Value = motive.Text

'Carbonation ID
If carb.Range("J" & ER).Value = carb.Range("J" & FR).Value Then
    carb.Range("A" & ER).Value = carb.Range("A" & FR).Value + 1
Else
    carb.Range("A" & ER).Value = Replace(Date, "/", "") & "001"
End If

'Carbonation Number
If carb.Range("J" & ER).Value = carb.Range("J" & FR).Value Then
    carb.Range("D" & ER).Value = carb.Range("D" & FR).Value + 1
Else
    carb.Range("D" & ER).Value = 1
End If
End Sub

Я использую этот код для ввода пользовательских данных в лист "Carbonation".

Я провел несколько тестов и сумел импортировать данные непосредственно в тестовую таблицу вSQL.Моя единственная проблема - это «Идентификация карбонизации» и «Номер карбонизации».

Буду признателен за предложения по этому поводу.