Возможно, слово «распространяться» не является правильным, но ответы, которые я нашел, чтобы «объединить» и «объединить» вопросы, похоже, не подходят.
У меня есть два совершенно разных листа данных. Например: sheet1 может иметь столбец элементов, а sheet2 может иметь столбец цветов. Мне нужно в конечном итоге 2 столбца на листе, содержащем все возможные комбинации столбцов из двух других листов.
Таким образом, в приведенном выше примере, если sheet1 имеет 140 элементов, а sheet2 имеет 17 цветов, мне нужно, чтобы sheet3 имел столбец элемента, цветной столбец и 2380 записей (по одной для каждого возможного сочетания элемента и цвета).
Вот простой пример, который вы можете адаптировать.
Сохранить у нас есть 7 элементов в столбце A и 3 цвета в колонке B . Запуск этого короткого макроса:
Sub combine() Dim K As Long, i As Long, j As Long, Nitems As Long, Ncolors As Long K = 1 Nitems = 7 Ncolors = 3 For i = 1 To Nitems For j = 1 To Ncolors Cells(K, "C").Value = Cells(i, "A").Value & "," & Cells(j, "B").Value K = K + 1 Next j Next i End Sub будет производить это в столбце C :
