在不同行上列出兩組單詞的組合

Question

我有一行由兩列組成，該行的每個單元格可能包含多個單詞。對於同一行的每個單元格中的每個單詞組合，我必須獲得一個新行。我舉一個簡單的例子：

Column1  Column2  
W1   W2   
W3   W4   
W5       

從這個ROW1，我們必須獲得3 * 2 = 6個新這樣做行：

 
W1   W2 -->NEWROW1 
W1   W4 -->NEWROW2 
W3   W2 -->NEWROW3 
W3   W4 -->NEWROW4 
W5   W2 -->NEWROW5 
W5   W4 -->NEWROW6

什麼是簡單的宏來獲得呢？

Answer 1

有可能是一個更優雅的方式，但嘗試這樣的事情：

Sub mySub() 

Dim iRow as Long 
Dim iRow2 as Long 
Dim iOutput as long 

For iRow = 1 to Cells(1,1).End(xlDown).Row 
For iRow2 = 1 to cells(1,2).End(xlDown).Row 
iOutput = iOutput + 1 
Cells(iOutput,3) = Cells(iRow,1) 
Cells(iOutput,4) = Cells(iRow2,2) 
Next iRow2 
Next iRow 

End Sub 

Answer 2

假設W1是在A1和每對詞的結果是在兩個單元，這可以在不VBA實現如在ROW1式：

=INDIRECT("A"&1+INT((ROW()-1)/2)) 

和

=INDIRECT("B"&1+MOD(ROW()-1,2)) 

都複製下來以適應。