Как сцепить каждую ячейку столбца А с каждой ячейкой ст. B (все комбинации) - VBA
Формулировка задачи:
Уважаемые знатоки Excel, помогите пожалуйста написать функцию для решения такой задачки
Есть исходная табличка такого вида:
----------------------------------------------------
Samsung микрофон цена недорого
Nokia экран купить дешево
Sony динамик замена
батарея ремонт
восстановление
----------------------------------------------------
Суть вопроса - нужно СЦЕПИТЬ каждое значение столбца А + с каждой ячейкой столбца B + с каждой ячейкой столбца С + с каждой ячейкой столбца D.
Т.е. нужно получить все возможные комбинации сочетания этих слов - такого вида:
Samsung микрофон цена недорого
Samsung микрофон цена дешево
Samsung микрофон купить недорого
Samsung микрофон купить дешево
Samsung микрофон заменанедорого
… … … …
Sony батарея восстановление дешево
Решение задачи: «Как сцепить каждую ячейку столбца А с каждой ячейкой ст. B (все комбинации)»
textual
Листинг программы
Option Explicit Sub tt() Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range, r5 As Range, i& Application.ScreenUpdating = False For Each r1 In Range([a3], [a3].End(xlDown)).Cells For Each r2 In Range([b3], [b3].End(xlDown)).Cells For Each r3 In Range([c3], [c3].End(xlDown)).Cells For Each r4 In Range([d3], [d3].End(xlDown)).Cells For Each r5 In Range([e3], [e3].End(xlDown)).Cells i = i + 1 Cells(i, 7).Resize(, 5) = Array(r1, r2, r3, r4, r5) Next Next Next Next Next Application.ScreenUpdating = True End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д