返回列表下一主題上一主題發帖

[發問] 資料分割

vinejason

中學生 Rank: 2

帖子: 124
主題: 43
精華: 0
積分: 167
點名: 0
作業系統: Windows7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 台灣台北
註冊時間: 2011-3-16
最後登錄: 2021-10-7

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2018-5-29 16:50 | 只看該作者

[發問] 資料分割

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

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

Book1.rar (6.48 KB)

樓主熱帖

無止盡的努力上進

hcm19522

碩士班 Rank: 5 Rank: 5

帖子: 1800
主題: 186
精華: 0
積分: 1991
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 100
性別: 男
註冊時間: 2015-9-11
最後登錄: 2026-10-2

熱烈參與勳章

7^#

發表於 2018-5-31 11:18 | 只看該作者

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

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

vinejason

中學生 Rank: 2

帖子: 124
主題: 43
精華: 0
積分: 167
點名: 0
作業系統: Windows7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 台灣台北
註冊時間: 2011-3-16
最後登錄: 2021-10-7

6^#

發表於 2018-5-30 16:07 | 只看該作者

回復 5# ikboy

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

無止盡的努力上進

TOP

ikboy

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2025-3-24

2016猴年全勤獎章

5^#

發表於 2018-5-30 12:25 | 只看該作者

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

複製代碼

TOP

quickfixer

中學生 Rank: 2

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 3
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2026-7-8

4^#

發表於 2018-5-29 23:05 | 只看該作者

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

複製代碼

TOP

vinejason

中學生 Rank: 2

帖子: 124
主題: 43
精華: 0
積分: 167
點名: 0
作業系統: Windows7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 台灣台北
註冊時間: 2011-3-16
最後登錄: 2021-10-7

3^#

發表於 2018-5-29 22:51 | 只看該作者

本帖最後由 vinejason 於 2018-5-29 22:54 編輯

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

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

無止盡的努力上進

TOP

rph

中學生 Rank: 2

帖子: 41
主題: 7
精華: 0
積分: 79
點名: 1
作業系統: WIN XP
軟體版本: SP2
閱讀權限: 20
性別: 男
註冊時間: 2011-3-25
最後登錄: 2026-3-16

2^#

發表於 2018-5-29 17:29 | 只看該作者

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

TOP

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。

返回列表下一主題上一主題