Добрый день. Приложить 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
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