Работа с большим кол-вом строк, словари, массивы, коллекции

[Hugo121]

Думаю словарь ни к чему - взяли всё в массив, объявили другой в 3 раза выше и на 2 столбца, в цикле переложили (увеличивая счётчик строк на каждое число).

[cherepushka]

Не помните была схожая тема? Если да можете ссылочку скинуть. Спасибо.

[Hugo121]

Про майки? Не помню.
Проще новый макрос написать, чем найти что-то подобное...

[cherepushka]

Про футболки
Макросы боюсь сразу не осилить, а формулами такого не замутить.

[Hugo121]

Option Explicit

Sub tt()
    Dim a(), i&, ii&, x&

    a = [a1].CurrentRegion.Value
    ReDim b(1 To UBound(a) * 3, 1 To 2)
    
    For i = 1 To UBound(a)
        For ii = 2 To 4
            x = x + 1
            b(x, 1) = a(i, 1)
            b(x, 2) = a(i, ii)
        Next
    Next
    
    Workbooks.Add(1).Sheets(1).[a1].Resize(UBound(b), 2) = b
End Sub

[cherepushka]

Игорь, этот код за такое короткое время написал? Ну вообще, респект.
Спасибо большое.

[Hugo121]

Да что тут писать-то... Дольше файл оформлять-сохранять-архивировать-постить...
И кстати спецы могут замутить и формулами.
Только если много данных - файл с формулами будет тяжёлым, работать может медленно (при смене исходных данных), да и составить такие формулы думаю труднее, чем макрос написать. И протянуть ведь нужно ещё высчитать до куда...

[cherepushka]

Игорь, еще один вопрос. Экспериментирую и совсем запутался. Если структура не такая как изначально, а начинается со столбца B и идет через один столбец? в приложении файл.
a = [b2].CurrentRegion.Value начинаем с B2

И как можно добавить это все не в отдельный файл, а на другой лист.
ActiveWorkbooks.Add
Спасибо

[Hugo121]

При пошаговом прогоне посмотрите в окне Locals что где в массиве a() - хотя и так понятно...
Ну и соответственно нужно там-сям скорректировать код:

Sub tt()
    Dim a(), i&, ii&, x&

    a = [a1].CurrentRegion.Value
    ReDim b(1 To UBound(a) * 3, 1 To 2)

    For i = 2 To UBound(a)
        For ii = 4 To 8 Step 2
            x = x + 1
            b(x, 1) = a(i, 2)
            b(x, 2) = a(i, ii)
        Next
    Next
    
    Sheets.Add.[a1].Resize(UBound(b) - 1, 2) = b
End Sub

Если в диапазоне будут пустые строки/столбцы - тогда вместо CurrentRegion придётся определять диапазон иначе, в зависимости от ситуации.
Например

Sub rr()
Range([h2], Cells(Rows.Count, "b").End(xlUp)).Select
End Sub

или хоть просто

Sub rrr()
Sheets(1).UsedRange.Select
End Sub

Тут select только чтоб посмтореть на определённый диапазон, в коде селекты не нужны.

[VictorM]

посмотрите в окне Locals что где в массиве a()

Блин, чувствую себя полным дебилом
Не знал об этом, спасибо!