「★」を境に文字を分割し隣のセルに転記するのをｖｂａで行ないたい

質問

A1に「あああ★いいい★ううう」という文字列が入力されています。
「★」を境に文字を分割し隣のセルに転記するのをｖｂａで行ないたいのですが
どうすればいいのでしょうか？

実行後
A1→あああ
A2→いいい
A3→ううう

としたいです。
ご教授よろしくお願いします。

回答No.4

merlionXX · ベストアンサー

No3です。
横方向を縦方向に変えたいというのでわざわざTransposeをかませのですがそうでないなら、
Range("A1").Resize(UBound(ar) + 1).Value = Application.Transpose(ar)　の部分を
Range("A1").Resize(1, UBound(ar) + 1).Value = ar
に変えればＯＫです。
Resizeの範囲を変え、Transposeをはずすだけです。

お礼

再度ご回答ありがとうございます。
大変参考になりました！！！

回答No.3

merlionXX

Sub test01()
Dim myStr As String
Dim ar As Variant
myStr = Range("A1").Value
ar = Split(myStr, "★")
Range("A1").Resize(UBound(ar) + 1).Value = Application.Transpose(ar)
End Sub

これで★が何個でも対応するはずです。

補足

ご回答ありがとうございます。できました！
しかし一つ質問し間違えた点が。

A1→あああ
A2→いいい
A3→ううう

ではなく
A1→あああ
b1→いいい
C1→ううう

と横に転記するにはどうすればいいのでしょうか？
たびたび申し訳ございません。
ご回答よろしくお願いします。

回答No.2

web2525

いけね、マクロの保存じゃなくて記録だった

回答No.1

web2525

マクロの保存で
データ→区切り位置
を実施、以上。