返回列表 上一主題 發帖

[發問] 抓取特殊符號左右的值

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
232  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2021-9-16 07:34 | 只看該作者

[發問] 抓取特殊符號左右的值

Dear all,
大家好！
請問一下：
A1 =  1.5/2.3/3 ，我要如何把值給取出  B1=1.5、C1=2.3、D1=3
另外我的數值有時候無小數點，有時候小數點會到1~3位，請問公式要如何下？

Thank you.
收藏 分享
Just do it.

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
232  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
6#
發表於 2021-9-16 13:02 | 只看該作者
回復 5# samwang
Dear samwang,
VBA可以拆分可以用歐，感謝您
Just do it.

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
5#
發表於 2021-9-16 10:37 | 只看該作者
回復 3# jsc0518

請測試看看，謝謝

Sub test()
Dim a, Ar()
a = Split(Cells(1, 1), "/")
For i = 0 To UBound(a)
    ReDim Preserve Ar(s)
    Ar(s) = Split(Cells(1, 1), "/")(i)
    s = s + 1
Next
Range("b1").Resize(1, s) = Ar
End Sub

TOP

hcm19522

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

熱烈參與勳章
4#
發表於 2021-9-16 10:32 | 只看該作者
https://blog.xuite.net/hcm19522/twblog/590028723
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

jsc0518

帖子
455 
主題
111 
精華
0 
積分
563 
點名
232  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
3#
發表於 2021-9-16 09:21 | 只看該作者
回復 2# samwang
Dear samwang,
感謝您的回覆歐。
抱歉我沒把問題說得很清楚，我想要的是如下圖的呈現。感恩


Just do it.

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
2#
發表於 2021-9-16 08:40 | 只看該作者
回復 1# jsc0518



B1 =IFERROR(IF(FIND(".",A1),TEXT(A1,"#.#")),A1)

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題