>>981
これで代入できる
Range("A1:D1") = Split(str, " ")