Присвоение уникального номера

[hloppel]

Добрый день!
Есть таблица с тремя столбцами. ФИО, кол-во штрих-кодов, ID.
Необходимо следующее: При вводе в столбец "кол-во" значения от 1 до 1000, генерировать уникальный номер в столбце ID. Диапазон от 00001 до 15999. Приер: Если напротив Анны Ивановой стоит 5 то Анна Иванова должа прдублирваться на пять стрк и в каждой строке, в столбце ID должен быть уникальный номер.

[kuklp]

Это заказ?

[явген]

Называй это как хочешь, но убирать будем всех из столбцов B и G.

[IgorGO]

вот это

Sub Start()
  Dim r As Long, c As Long, n As Long
  r = 3: n = Val(Cells(r, 4)) - r
  Do
    c = Cells(r, 3)
    If c > 1 Then
      Cells(r, 2).Resize(1, 3).Copy
      Cells(r + 1, 2).Resize(c - 1, 1).Insert Shift:=xlDown
    End If
    Cells(r, 4).Resize(c, 1).FormulaR1C1 = _
    "=text(row()" & IIf(n >= 0, "+", "") & n & ",""00000"")"
    Cells(r, 4).Resize(c, 1).Copy: Cells(r, 4).PasteSpecial xlPasteValues
    r = r + c
  Loop Until Cells(r, 2) = ""
  Application.CutCopyMode = False
End Sub

выполните 1 раз.