返回列表 上一主題 發帖

如何截取空格前文字

s7659109

帖子
248 
主題
76 
精華
0 
積分
331 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
男 
來自
kaohsiung 
註冊時間
2013-6-10 
最後登錄
2020-7-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-8-13 14:24 | 只看該作者

如何截取空格前文字

原始資料同一儲存格三列日期有enter,如何取出放至右邊三欄

空格前字串.zip (6.85 KB)

收藏 分享
希望支持!

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
2#
發表於 2018-8-13 17:12 | 只看該作者
=TRIM(MID(SUBSTITUTE($B2,CHAR(10),REPT(" ",99)),COLUMN(A$1)*99-98,99))

固定8位數字:
=MID($B2,COLUMN(A$1)*9-8,8)

TOP

naruto018

帖子
91 
主題
5 
精華
0 
積分
130 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2016-5-14 
最後登錄
2020-5-17 
3#
發表於 2018-8-13 17:16 | 只看該作者
回復 1# s7659109


    在資料剖析，分隔符號->其他->輸入Ctrl+J或ALT+10鍵
代表換行，但不換顯現字元

TOP

a5007185
　暱稱: 阿佐
　頭銜: 上班無聊打怪去

中學生Rank: 2

帖子
108 
主題
1 
精華
0 
積分
113 
點名
0  
作業系統
Win 10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2017-9-7 
最後登錄
2019-2-27 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2018-8-13 17:20 | 只看該作者
回復 1# s7659109

請參考
  1. Sub Dismantling()
  2.     Dim PT As Range, ArrPT, Str, C%
  3.     Set PT = Range("B2")
  4.     ArrPT = Split(PT, Chr(10))
  5.     C = 3
  6.     For Each Str In ArrPT
  7.         If Str <> "" Then PT.Offset(0, C) = Str: C = C + 1
  8.     Next
  9. End Sub
複製代碼
空格前字串.zip (13.52 KB)

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題