[算表] excel vba有關textbox multiline輸入（

[CamryHybridQ (CamryHybridQ)]

office 2016

excel

請教各位大神

已知textbox可以multiline登打資料上去

==========
比方說資料呈現如下 in textbox1
==========
aaa
bbbb
cc
ddd
==========

我該如何把aaa丟到range.[a1]
                   bbbb丟到range.[a2]
                   cc丟到range.[a3]
                   ddd丟到range.[a4]

另外，如果想反向把range的資料

丟到textbox2，該如何處理？

google找不太到資料，也許是我看不懂

故懇請各位大神提供簡單範例研究

謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.236.102.10
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1493450872.A.6D1.html
→ soyoso: 變數接收split分割textbox value的arrya，再以ubound取得
→ soyoso: 維度的最高值，再以range.resize該最高值，指定到先前所分
→ soyoso: 割的變數；array base 0起的話，最高值請加1
→ soyoso: 指定到先前所分割變數請配合worksheetfunction的transpose
→ soyoso: 反向上，可以worksheetfucntion的transpose將單欄複數列的
→ soyoso: 讀入變數內，再以join的方式丟至textbox2
→ CamryHybridQ: 謝謝s大，但很抱歉…，語法我都全看過，還是不知如
→ CamryHybridQ: 何著手…^^"我好像問了超乎自己能力的問題（汗）…
→ CamryHybridQ: 。
→ soyoso: 變數=split(textbox1,vbcrlf)
→ soyoso: [a1].resize(ubound(變數)+1)=worksheetfunction.transpos
→ soyoso: e(變數)
→ soyoso: 反向則用到transpose再配合join
→ CamryHybridQ: 謝謝s大，我研究研究…
→ CamryHybridQ: 感謝s大，丟到cell的部分已經ok，但是cell丟text2的
→ CamryHybridQ: 的部分，可否再麻煩s大撥冗教學一下…。
→ soyoso: 變數=range
→ soyoso: 上面range外加上transpose的部分
→ soyoso: textbox2=join(變數，分隔符號就看原po要以什麼
→ CamryHybridQ: 成功了…，s大太神了…。
→ CamryHybridQ: 十分感謝s大的指導
→ CamryHybridQ: 那再請教一下，我從range叫回來的資料是以"列"排列
→ CamryHybridQ: 如果想要用"行"來排列該怎麼做呢？謝謝
※ 編輯: CamryHybridQ (122.117.124.204), 04/29/2017 18:06:41
→ soyoso: 欄的話，可以迴圈合併字串，再以textbox2=字串
→ CamryHybridQ: 謝謝，繼續研究
→ CamryHybridQ: 成功惹，感謝s大（淚）