Board logo

標題: [發問] 資料分割 [打印本頁]
作者: vinejason    時間: 2018-5-29 16:50     標題: 資料分割

本帖最後由 vinejason 於 2018-5-29 17:03 編輯

感謝iamaraymond 君幫忙將網頁資料載下來
我試著將資料分類遇到一個困難
再次請教各位先進
把內容簡介和作者簡介分成2欄
[attach]28778[/attach]
作者: rph    時間: 2018-5-29 17:29

1、點選"資料",再選"資料剖析"
2、選"固定寬度"
3、再將分割線移至要分割位置後，點選"完成"即可
作者: vinejason    時間: 2018-5-29 22:51

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


這個方法我試過不行哦 !
因為資料量約有上千筆
而且每個資料長短不一
因此無法使用資料部析進行分割
作者: quickfixer    時間: 2018-5-29 23:05

  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    時間: 2018-5-30 12:25

  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    時間: 2018-5-30 16:07

回復 5# ikboy

因為您們得以前進一大步
大大的感恩
祝福您們凡事富足 靈魂興盛
作者: hcm19522    時間: 2018-5-31 11:18

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)