行与字符串之间的空格

Question

我有这个:

| col1 | col2 | col 3 |
|    5 |   FA |   OFF |
|  107 |   FA |    ON |
|   96 |   FO |    ON |

我希望MsgBox像这样每一行

Dim str As String
Dim r As Long

r = 2
While Celles(r,1).Value <> ""
    str = Rows(r)                    ' don't know how get row with space between items
    MsgBox str
    Set WshShell = CreateObject("WScript.Shell")
    Set WshShellExec = WshShell.Exec("""C:\mypath\prog.exe"" " & str)

    r = r+1
Wend

我想要3个MsgBox出现 5 FA OFF 107 FA ON 96 FO ON.

因此,如何正确获取行并在项目之间添加空格？

(在我想WshShellExec用参数调用之后)

Answer 1

Sub x()

For i = 1 To 3
a = Application.Transpose(Application.Transpose(Range("a1:c1").Offset(i, 0).Value))
Debug.Print Join(a, "|")
Next i

End Sub