【問題】分解儲存格內容

[Peter H.]

(1)2010楊傳廣
(2)2012紀政
(3)2018戴室然
(4)2110歐陽一濱
以上是range("a1")的內容,並以Alt+Enter形成如上畫面
請問如何以VBA分解成
range("a1") =
(1)2010
(2)2012
(3)2018
(4)2110
range("b1") =
楊傳廣
紀政
戴室然
歐陽一濱

[leonchou]

我似乎想的太複雜了... @@"
不過可以 Run 就好了不是嗎 --

Sub split_and_wrap()
break = InStr(1, [A1], vbLf)
Do While break > 0
p = p + 8 '姓名的位置
e = break - p
GoSub 1 '取姓名 & 刪除
break = InStr(p + 1, [A1], vbLf)
Loop
p = p + 8 '姓名的位置
e = Len([A1])
GoSub 1 '再取最後一個
[b1] = newtxt: Exit Sub
1
With [A1].Characters(p, e)
newtxt = newtxt & .Text & IIf(e = Len([A1]), "", vbLf)
.Delete
End With: Return
End Sub

[夏南生]

[精靈優先使用]


選A欄>>資料>>資料剖析>>固定寬度>>拉尺規>>完工

[沙拉油]

我也提供一個作為參考好嗎? ^^

Sub sss()
s = [A1].Value: j = 1
[A1] = "": [B1] = ""
For i = 1 To Len(s)
If Asc(Mid(s, i, 1)) = 10 Or i = Len(s) Then
s3 = Mid(s, j, i - j + 1)
[A1] = [A1].Value & Left(s3, 7)
If i <> Len(s) Then [A1] = [A1].Value & Chr(10)
[B1] = [B1].Value & Mid(s3, 8)
j = i + 1
End If
Next
End Sub

[leonchou]

「資料剖析」可以達到題目的需求? 實在令人懷疑...

To 小沙沙: 就是這種啦~

[夏南生]

可以辦妥的

將book1.zip改名為book1.xls
看看即懂

[TPBUNNY]

夏前輩：原題目上的資料全部都是range("a1")的內容(只有一個儲存格，以Alt+Enter分行)，希望分解成二個儲存格。您的範例是將他分成四列，經過剖析後變成八個儲存格，您是不是還有其他方法將其合併成題目要求的二個？

下載了您整理的excel_qa檔案，內容豐富，謝謝！

[夏南生]

1.
看錯題目

2.
zizzcat彙整,不是我
http://qa.usernet.com.tw/total_view....189&type=Excel

[Peter H.]

1.感謝各位的解答
2.To 夏先生
照您所提供的網址,已經無法找到excel_qa檔案,可否請您上傳給我,謝謝

[夏南生]

整理了一些放在
http://home.kimo.com.tw/zizz_cat/
點選電腦主機'試算表問答集'即可下載.