2016-01-11 3 views

ответ

0

Если VBA в порядке, то вы можете сделать это с помощью следующего кода:

Option Explicit 

Sub Combine() 
Dim rowA As Long, rowB As Long, rowC As Long 

Range("C:C").ClearContents 

rowC = 2 

rowA = 2 
Do While Range("A" & rowA).Value <> "" 
    rowB = 2 
    Do While Range("B" & rowB).Value <> "" 
     Range("C" & rowC).Value = Range("A" & rowA).Value & Range("B" & rowB).Value 
     rowB = rowB + 1 
     rowC = rowC + 1 
    Loop 
    rowA = rowA + 1 
Loop 

End Sub 

Следует заметить, что код не имеет проверка ошибок, когда ваше фактическое количество значений может давать больше, чем максимальные строки.

Смежные вопросы