Excel VBA-搜索单元格区域中的所有单词对

Question

任何人都可以帮助一些VBA代码，这些代码将通过一系列单元格查找并拉出并列出所有由空格分隔的单词对。

所以这个

将这样输出

Answer 1

Sub F()

    Dim x, z, arr, cell

    For Each cell In [A1:A3]
        arr = Split(cell)
        For x = 0 To UBound(arr) - 1
            z = z + 1
            Cells(z, 2) = arr(x) & " " & arr(x + 1)
        Next
    Next

End Sub