Объединить построчно два столбца - VBA

Формулировка задачи:

Всем привет! Помогите пожалуйста написать программу к-я изменяет количество ячеек в зависимости от высоты столбцов по определенному алгоритму (см скриншот) 3-й столбец должен быть продолжен в зависимости от увеличения первых двух

Решение задачи: «Объединить построчно два столбца»

textual
                            Листинг программы 
                        

                            Sub test()
Dim i As Long, j As Long
a = 2 'количество слов в столбце А
b = 3 'количество слов в столбце В
For i = 1 To a
    For j = 1 To b
        Cells((i - 1) * b + j, 3) = Cells(i, 1) & " " & Cells(j, 2)
    Next j
Next i
End Sub
                        

Оцени полезность:

11 голосов , оценка 4 из 5

Похожие ответы