Связать каждую ячейку списка с другим списком

@марияф · Регистрация: 07.02.2016

Помогите пожалуйста.
перечитала кучу информации, но поскольку VBA не владею вообще, то не смогу приложить хоть что-нибудь, как пример того что я смогла сделать по данному вопросу.
Приложила файл, в нем три листа. Каждую ячейку с листа "номера" надо связать со списком на листе "список", и вывести это на лист "итог". Кол-во ячеек на листе "номера" меняется, так же как и список может увеличиться.
Очень, очень нужна помощь.

@Hugo121 · 07.02.2016, 23:19

Обычный перебор цикл в цикле, вывод с увеличением счётчика.

Добавлено через 4 минуты

Visual Basic

Sub tt()
    Dim c1 As Range, c2 As Range, i As Long
    For Each c1 In Sheets("номера").[a1].CurrentRegion.Cells
        For Each c2 In Sheets("список").[a1].CurrentRegion.Cells
            i = i + 1
            c1.Copy Sheets("итог").Cells(i, 1)
            c2.Copy Sheets("итог").Cells(i, 2)
        Next
    Next
End Sub

Опции темы