[發問] 資料剖析有辦法找出換行資料嗎

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-10-2

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2018-4-4 07:57 | 只看該作者

[發問] 資料剖析有辦法找出換行資料嗎

請教大大
假設字串內容有換行共二列,用EXCEL資料剖析功能,有辦法找出換行位置,將資料分開到兩個儲存格內嗎?
如果資料剖析沒辦法,請教要如用VBA找出換行位置?

樓主熱帖

ikboy

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

2016猴年全勤獎章

2^#

發表於 2018-4-4 09:31 | 只看該作者

正則 \n 可以找出換行，但從(資料\取得外部資料-從文字檔)匯入文檔像是已經可以做到。

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-10-2

3^#

發表於 2018-4-4 15:29 | 只看該作者

請教ikboy大大(正則 \n 可以找出換行)是什麼意思?

ikboy

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

2016猴年全勤獎章

4^#

發表於 2018-4-4 15:44 | 只看該作者

正則所涉及知識較為廣，樓主可以在此了解多點 https://docs.microsoft.com/en-us/dotnet/standard/base-types/regular-expression-language-quick-reference

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-10-2

5^#

發表於 2018-4-4 16:16 | 只看該作者

回復 4# ikboy

ikboy大大,英文我不行看不懂,大大指的/N,是用在VBA程式碼上嗎?
請教可以用FIND函數找出換行位置嗎?
不好意思,還請大大幫忙謝謝!!

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-10-2

6^#

發表於 2018-4-4 16:35 | 只看該作者

回復 4# ikboy

我在下面連結找到解答了
http://www.how01.com/post_1m6ZK92eG5Zzw.html

函數CHAR(10)就代表電腦字元集, 換行
只要用函數FIND(CHAR(10),D2)就可找到換行位罝

帖子: 150
主題: 40
精華: 0
積分: 215
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-10-2

7^#

發表於 2018-4-5 06:51 | 只看該作者

補充說明
用在VBA上 Chr(10)代表換行
次數 = Len(strMsg) - Len(Replace(strMsg, Chr(10), "")) '找某字在字串出現次數

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2018-4-5 10:51 | 只看該作者

回復 7# blue2263

Option Explicit
Sub EX()
Dim Str As String, Ar As Variant, i As Integer
Str = "aaa" & Chr(10) & "bbbbb" & Chr(10) & "ccccc"
Ar = Split(Str, vbLf)
'Ar = Split(Str, Chr(10)) 'Chr(10) 同 vbLf
For i = 0 To UBound(Ar)
Cells(i + 1, "A") = Ar(i)
Next
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-21

9^#

發表於 2018-4-6 12:55 | 只看該作者

資料剖析, 選[其它]字元:
OtherChar :=Chr(10)

手動方式:
1.選取[其它]字元
2.按位Alt不放, 用[數字鍵]輸入10, 放開Alt
3.確定--完成

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

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-21

熱烈參與勳章

10^#

發表於 2018-4-7 10:31 | 只看該作者

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