|
贊助商連結 頁 :
[1]
2
Peter H. 2002-04-19, 01:23 PM (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 2002-04-19, 04:55 PM 我似乎想的太複雜了... @@" 不過可以 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 夏南生 2002-04-19, 06:38 PM [精靈優先使用] 選A欄>>資料>>資料剖析>>固定寬度>>拉尺規>>完工 沙拉油 2002-04-19, 07:05 PM 我也提供一個作為參考好嗎? ^^ 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 2002-04-19, 11:01 PM 「資料剖析」可以達到題目的需求? 實在令人懷疑... To 小沙沙: 就是這種啦~ :D 夏南生 2002-04-20, 06:52 AM 可以辦妥的 將book1.zip改名為book1.xls 看看即懂 TPBUNNY 2002-04-20, 07:09 AM 夏前輩：原題目上的資料全部都是range("a1")的內容(只有一個儲存格，以Alt+Enter分行)，希望分解成二個儲存格。您的範例是將他分成四列，經過剖析後變成八個儲存格，您是不是還有其他方法將其合併成題目要求的二個？ 下載了您整理的excel_qa檔案，內容豐富，謝謝！ 夏南生 2002-04-20, 10:28 AM 1. 看錯題目 2. zizzcat彙整,不是我 http://qa.usernet.com.tw/total_view.asp?CurNumber=284189&type=Excel Peter H. 2002-04-23, 10:10 AM 1.感謝各位的解答 2.To 夏先生 照您所提供的網址,已經無法找到excel_qa檔案,可否請您上傳給我,謝謝 夏南生 2002-04-23, 11:59 AM 整理了一些放在 http://home.kimo.com.tw/zizz_cat/ 點選電腦主機'試算表問答集'即可下載. |
|
|