會員 | 【問題】分解儲存格內容 (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") = 楊傳廣 紀政 戴室然 歐陽一濱 |
回覆 |
Take it easy~ | 我似乎想的太複雜了... @@" 不過可以 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 |
回覆 |
Take it easy~ | 「資料剖析」可以達到題目的需求? 實在令人懷疑... To 小沙沙: 就是這種啦~ |
回覆 |
會員 | 可以辦妥的 將book1.zip改名為book1.xls 看看即懂 |
回覆 |
會員 | 夏前輩:原題目上的資料全部都是range("a1")的內容(只有一個儲存格,以Alt+Enter分行),希望分解成二個儲存格。您的範例是將他分成四列,經過剖析後變成八個儲存格,您是不是還有其他方法將其合併成題目要求的二個? 下載了您整理的excel_qa檔案,內容豐富,謝謝! |
回覆 |
會員 | |
回覆 |
會員 | 1.感謝各位的解答 2.To 夏先生 照您所提供的網址,已經無法找到excel_qa檔案,可否請您上傳給我,謝謝 |
回覆 |
會員 | |
回覆 |
XML | RSS 2.0 | RSS |
本論壇所有文章僅代表留言者個人意見,並不代表本站之立場,討論區以「即時留言」方式運作,故無法完全監察所有即時留言,若您發現文章可能有異議,請 email :[email protected] 處理。