{quote}{login=demos_fobos}{date=23.09.2010 04:04}{thema=Нумерация по дате с оригинальным номером}{post}Здравствуйте, подскажите как пронумеровать список состоящий из списка повторяющихся дат, присваивая номер начиная с минимальной даты к максимальной, по порядку внутри повторяющихся значений дат и продолжить нумерацию на следующую дату по возрастанию. Номера должны быть оригинальными. Пример в приложении.{/post}{/quote}  
отсортируйте по дате а затем прогрессией присвойте уникальный номер в соседнем столбце от 1 до ......  
:)

У меня не работает.

{quote}{login=Ship}{date=23.09.2010 04:59}{thema=Re: }{post}У меня не работает.{/post}{/quote}  
Sub rang_data()  
Application.ScreenUpdating = False  
 
Dim lLastrow As Double  
lLastrow = Cells(Rows.Count, 1).End(xlUp).Row  
ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("A2:A" & lLastrow) _  
       , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal  
 
 
   With ActiveWorkbook.Worksheets("Лист1").Sort  
       .SetRange Range("A2:A" & lLastrow)  
           
        .Header = xlNo  
       .MatchCase = False  
       .Orientation = xlTopToBottom  
       .SortMethod = xlPinYin  
       .Apply  
   End With  
  Cells(2, 2) = 1  
   lLastrow = Cells(Rows.Count, 1).End(xlUp).Row  
    Range("B2:B" & lLastrow).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _  
       Step:=1, Trend:=False  
   Application.ScreenUpdating = True  
End Sub  
этот код рабочий