Excel - 列出一個列表中兩個單詞的所有組合，其他兩列

Question

我有列A中的名稱列表，並且希望列出列C和D中的所有組合（不是排列組合）。對於8個名字，我應該在C列和D列中列出28個組合。我不知道如何使用VBA，因此一個簡單的步驟指南將不勝感激。由於

Answer 1

點擊Alt鍵 + F11和VBE打開時，立即使用下拉菜單插入►模塊（Alt鍵 + 我，中號）。以下內容粘貼到新的窗格標題類似第一冊 - 模塊1（代碼），

Sub name_by_name() 
    Dim i As Long, j As Long, lr As Long 
    With ActiveSheet 
     lr = .Cells(Rows.Count, 1).End(xlUp).Row 
     For i = 2 To lr 
      For j = i + 1 To lr 
       .Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = _ 
        .Cells(i, 1).Value & ", " & .Cells(j, 1).Value 
      Next j 
     Next i 
    End With 
End Sub 

我想象你的名字列表第2行啓動（使用A1作爲標題標籤）。如果名稱以A1開頭，請將For i = 2 To lr更改爲For i = 1 To lr。我還將組合名稱與空格分開逗號。如果你願意的話，可以進一步改變這三條線。點擊Alt + Q返回到您的工作表。 Tap Alt + F8打開宏對話框和運行宏。你的結果應該類似於以下內容。