O que você está procurando é chamado de " Produto Cartesiano " ou "associação externa".
A solução como VBA. Copie o código a seguir para o lado direito do Editor do Visual Basic. Você verá que sua macro agora tem um nome "cartesianproduct": ( Source )
Sub cartesianproduct()
Dim startrange As Range
range1 = Application.InputBox(Prompt:="Please Select First Range", Type:=8)
range2 = Application.InputBox(Prompt:="Please Select Second Range", Type:=8)
Set startrange = Application.InputBox(Prompt:="Please select where you want to put it", Type:=8)
array1 = [range1]
array2 = [range2]
startrange.Select
For i = 1 To UBound(array1)
For x = 1 To UBound(array2)
z = z + 1
ActiveCell.Offset(z, 0).Value = array1(i, 1)
ActiveCell.Offset(z, 1).Value = array2(x, 1)
Next
Next
End Sub
Eu também encontrei aqui uma solução como uma fórmula (não testada!):
=IF(ROW()-ROW($F$1)+1>COUNTA(A:A)*COUNTA(B:B),"",INDEX(A:A,INT((ROW()-ROW($F$1))/COUNTA(B:B)+1)) & " - " & INDEX(B:B,MOD(ROW()-ROW($F$1),COUNTA(B:B))+1))
Eu adicionei apenas "-" entre os dois valores ...