TextBoxで改行した内容をセルで確認したときの動作ついてしつもんです。

質問

VBAでTextBoxに文字を入力し、改行を行ってセルに貼り付けを行うと
見た目では改行できているのですが、セルをアクティブにして、
コピペすると改行が２つ入ってしまいます。対処する方法ないでしょうか。

例
テキストボックスに入力
あいうえお（改行）
かきくけこ

ActiveSheet.ActiveCell = Userform1.Textbox1.Value
セルに挿入

セルをアクティブにしてコピペすると
あいうえお（改行）
（改行）
かきくけこ

回答No.1

hige_082 · ベストアンサー

一例です

ActiveCell.ActiveCell = Replace(UserForm1.TextBox1.Value, vbCrLf, vbLf)

参考にどうぞ

お礼

hige_082さんへ
ありがとうございます！！
解決しました！