Развернуть числа ОТ и ДО. Вывести название диапазона рядом

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

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

26.06.2020 10:50:46

Добрый день. Приложить Excel файл не имею возможности. Но постараюсь объяснить без него. Вся работа начинается со второй строки.

Дано:
А B C (столбцы)
1 3 зеленый
4 6 красный
8 9 белый

Желаемый результат:
E F (столбцы)
1 зеленый
2 зеленый
3 зеленый
4 красный
5 красный
6 красный
8 белый
9 белый

Есть макрос, который разворачивает числа (начальное значение в А, конечное B, все промежутчные значения включая A и B выводятся в столбец E. Но он не выводит названия из столбца C. Проблему можно решить с помощью формул поискпоз и индекс, но таких строчек миллион (2-3 часа обработки), хотелось бы, чтобы сразу при развороте числе от и до - выводилось рядом название.

Код

Dim i As Range, j&, k&
ReDim v(1 To 1048576, 1 To 1)
For Each i In [A:A].SpecialCells(xlCellTypeConstants, xlNumbers)
   For j = i To i(, 2)
       k = k + 1
       v(k, 1) = j
   Next
Next
[E2:E1048576].Value = v
End Sub

Изменено: Frosted.one - 26.06.2020 10:54:26

Kuzmich

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

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

26.06.2020 12:06:53

Цитата
Но он не выводит названия из столбца C.

Код

Sub GRW()
Dim i As Range, j&, k&
ReDim v(1 To 65000, 1 To 2)
For Each i In [A:A].SpecialCells(xlCellTypeConstants, xlNumbers)
   For j = i To i(, 2)
       k = k + 1
       v(k, 1) = j
       v(k, 2) = i(, 3)
   Next
Next
[E1:F65000].Value = v
End Sub

Frosted.one Пользователь Сообщений: 53 Регистрация: 12.12.2016	#3 26.06.2020 12:16:29 Kuzmich, работает. Огромное спасибо!