Sub 排列组合()
    i = 1
    x = 1
    Do While Cells(i, 1) <> ""
        j = 1
        Do While Cells(j, 2) <> ""
                Cells(x, 3) = Cells(i, 1) + Cells(j, 2) 
                x = x + 1
            j = j + 1
        Loop
        i = i + 1
    Loop
End Sub


B端词
 supplier
 manufacturer
 wholesale
 China
 factory
 bulk buy
 vendor
 company