麻辣家族討論版版 » Excelㄧ般區 » 文字轉數字(試過很多方法都是失敗)

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

[發問] 文字轉數字(試過很多方法都是失敗)

中學生 Rank: 2

帖子: 77
主題: 11
精華: 0
積分: 96
點名: 0
作業系統: windows xp
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 女
註冊時間: 2012-8-29
最後登錄: 2023-10-30

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2018-2-5 12:03 | 只看該作者

[發問] 文字轉數字(試過很多方法都是失敗)

本帖最後由 jomeow 於 2018-2-5 12:05 編輯

我是從客戶給我郵件抄下來的數字型文字

我想把這一串文字轉換成數字

但是我用函數 value 結果會顯示 #VALUE!

或者是使用強制數值「--」　結果還是顯示 #VALUE!

且使用選擇性貼上運算值為乘　顯示的還是文字

只有我重新輸入才會變成數值

請問有什麼方法可以一次把數字型文字轉換成數值呢？

我已經把「」都取消了

謝謝各位大大出手幫助～

text.rar (8.29 KB)

text

樓主熱帖

收藏

　暱稱:

中學生 Rank: 2

帖子: 111
主題: 3
精華: 0
積分: 156
點名: 0
作業系統: Window
軟體版本: office 365
閱讀權限: 20
性別: 女
註冊時間: 2017-8-14
最後登錄: 2023-6-26

2^#

發表於 2018-2-5 12:26 | 只看該作者

回復 1# jomeow

取代後為數值型態，詳下圖：

中學生 Rank: 2

帖子: 77
主題: 11
精華: 0
積分: 96
點名: 0
作業系統: windows xp
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 女
註冊時間: 2012-8-29
最後登錄: 2023-10-30

3^#

發表於 2018-2-5 14:50 | 只看該作者

回復 2# joblyc017

謝謝你.. 我成功了..
請問為何要這樣才可以[取代"隔隔" ] 呢?

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

4^#

發表於 2018-2-7 07:11 | 只看該作者

{=-LOOKUP(,-MID(A2,MATCH(0,0/MID(A2,ROW($1:$66),1),),ROW($1:$16))) }

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 812
主題: 7
精華: 0
積分: 862
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 100
性別: 男
來自: 台中
註冊時間: 2010-5-13
最後登錄: 2019-10-10

論壇貢獻勳章

5^#

發表於 2018-2-9 12:29 | 只看該作者

網路或E-mail 所獲得的數字資料,通常會有不可見字元,可用LEN函數檢查即可知道。

中學生 Rank: 2

帖子: 77
主題: 11
精華: 0
積分: 96
點名: 0
作業系統: windows xp
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 女
註冊時間: 2012-8-29
最後登錄: 2023-10-30

6^#

發表於 2018-2-12 16:14 | 只看該作者

網路或E-mail 所獲得的數字資料,通常會有不可見字元,可用LEN函數檢查即可知道。
ANGELA 發表於 2018-2-9 12:29

你說得對.. 我用LEN.. 就看到得出來的結果是很大的
不過.. 要找出是多出了什麼就難找了..

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 812
主題: 7
精華: 0
積分: 862
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 100
性別: 男
來自: 台中
註冊時間: 2010-5-13
最後登錄: 2019-10-10

論壇貢獻勳章

7^#

發表於 2018-2-13 22:42 | 只看該作者

拷貝一個字元用code函數查看就知道了，但不可見知道也沒啥意思。因不可見字元有好多個。

中學生 Rank: 2

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

2016猴年全勤獎章

8^#

發表於 2018-2-14 09:53 | 只看該作者

try this:

Sub zz()
Dim a, rg As Object
Set rg = CreateObject("vbscript.regexp")
a = Range("a1:a" & [a1048576].End(3).Row).Value
rg.Pattern = "[^\d+\.]"
For i = 2 To UBound(a)
a(i, 1) = CDbl(rg.Replace(a(i, 1), ""))
Next
[b1].Resize(i - 1, 1) = a
End Sub

複製代碼

Function z#(rng As Range)
Dim a, rg As Object
Set rg = CreateObject("vbscript.regexp")
a = rng.Value
With rg
.Pattern = "[^\d+\.]"
z = .Replace(a, "")
End With
End Function

複製代碼

靜思自在 : 虛空有盡．我願無窮，發願容易行願難。

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