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