[發問] 資料分割

vinejason

感謝iamaraymond 君幫忙將網頁資料載下來
我試著將資料分類遇到一個困難
再次請教各位先進
把內容簡介和作者簡介分成2欄
Book1.rar (6.48 KB)

資料分割
下載次數: 11

2018-5-29 16:49

rph

1、點選"資料",再選"資料剖析"
2、選"固定寬度"
3、再將分割線移至要分割位置後，點選"完成"即可

vinejason

1、點選"資料",再選"資料剖析"
2、選"固定寬度"
3、再將分割線移至要分割位置後，點選"完成"即可
rph 發表於 2018-5-29 17:29

這個方法我試過不行哦 !
因為資料量約有上千筆
而且每個資料長短不一
因此無法使用資料部析進行分割

quickfixer

1. Sub test()
   
2.     Cells(1, 2) = Split(Cells(1, 1), "【作者簡介】")(0)
   
3.     Cells(1, 3) = "【作者簡介】" & Chr(13) & Split(Cells(1, 1), "【作者簡介】")(1)
   
4. End Sub

複製代碼

ikboy

1. Sub zz()
   
2. Dim s$, sp$, b(), ar, n&
   
3. sp = "【"
   
4. ar = Range("a1:a" & Cells(Rows.Count, 1).End(3).Row).Value
   
5. ReDim b(1 To UBound(ar) * 2, 1 To 1)
   
6. For i = 1 To UBound(ar)
   
7.     a = Split(ar(i, 1), sp)
   
8.     For ii = 1 To UBound(a)
   
9.         n = n + 1
   
10.         b(n, 1) = sp & a(ii)
    
11.     Next
    
12. Next
    
13. [b1].Resize(n) = b
    
14. End Sub

複製代碼

vinejason

回復 5# ikboy

因為您們得以前進一大步
大大的感恩
祝福您們凡事富足 靈魂興盛

hcm19522

http://blog.xuite.net/hcm19522/twblog/582836161