excel - 搜索一系列单元格中的所有单词对

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