Excel ユーザーフォームからの転記

質問

Excel　ユーザーフォームからの転記

はじめまして、ご教授願います。

Exceiのユーザーフォーム内のテキストボックスのデータをシートに転記したいのですが、
教えてください。

テキストボックス内の改行を含んだデータを改行で区切って、別々のセル（縦に順に）に転記
したいのですが、方法がわかりません。
VBAでどのように書けばよろしいのでしょうか。

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

回答No.1

hige_082 · ベストアンサー

こんな感じで

Private Sub CommandButton1_Click()
Dim vStr As Variant
vStr = WorksheetFunction.Transpose(Split(TextBox1.Value, vbCrLf))
Range("a1").Resize(UBound(vStr)).Value = vStr
End Sub

参考まで