Преобразование диапазона в список

Пользователь

Сообщений: 5 Регистрация: 01.01.1970

09.11.2010 17:16:09

Добрый день.
Прошу помощи со следующим вопросом:
Есть таблица со списком бланков формата
№с - №по - количество
0001-00032 - 32
0125-0126 - 2
4555-4655 - 101 итд.
Можно ли сделать из него список номеров, идущих по порядку в 1 столбце вида
0001
0002
0003
...
0125
0126 итд
Заранее благодарю

vvbystrov Пользователь Сообщений: 5 Регистрация: 01.01.1970	#2 09.11.2010 17:20:51 Вложил табличку, которую надо преобразовать Прикрепленные файлы post_172602.xls (15 КБ)

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#3 09.11.2010 17:43:36 Нажмите волшебную кнопочку: http://excelvba.ru/XL_Files/Sample__09-11-2010__19-43-08.zip Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#4 09.11.2010 18:04:14 Или так Sub tt() Dim a As Range For Each a In Range([A2], [A1].End(xlDown)) With Range("I" & Rows.Count).End(xlUp).Offset(1) .Value = Val(a) .DataSeries xlColumns, xlDataSeriesLinear, xlDay, 1, .Value + a(, 3) - 1 End With Next End Sub

vvbystrov

Пользователь

Сообщений: 5 Регистрация: 01.01.1970

09.11.2010 20:13:09

{quote}{login=Казанский}{date=09.11.2010 06:04}{thema=}{post}Или так

Sub tt()
Dim a As Range
For Each a In Range([A2], [A1].End(xlDown))
With Range("I" & Rows.Count).End(xlUp).Offset(1)
.Value = Val(a)
.DataSeries xlColumns, xlDataSeriesLinear, xlDay, 1, .Value + a(, 3) - 1
End With
Next
End Sub{/post}{/quote}
Спасибо большое.
А формулы нет подходящей?

Serge Пользователь Сообщений: 11312 Регистрация: 01.01.1970	#6 09.11.2010 20:22:34 {quote}{login=vvbystrov}{date=09.11.2010 05:20}{thema=Вот пример}{post}Вложил табличку, которую надо преобразовать{/post}{/quote}Во что?

Читают тему