返回列表 上一主題 發帖

[發問] 資料分割

[發問] 資料分割

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

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

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

TOP

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


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

TOP

  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
複製代碼

TOP

  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
複製代碼

TOP

回復 5# ikboy

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

TOP

隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog
已收集4100篇 EXCEL函數

TOP

        靜思自在 : 並非有錢魷是快樂,問心無愧心最安。
返回列表 上一主題