cypd

帖子: 246
主題: 42
精華: 0
積分: 320
點名: 22
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2025-10-20

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-7-8 15:26 | 只看該作者

[發問] 如何排除英文字母及"-"字符取全部數字?

如何排除英文字母及"-"字符取全部數字?
針對儲存格內含有英數及其他字符時
利用公式將其統整為數字型態
問題為例若B4儲存格為 085-8
B5儲存格為 5-5-0-5
上述公式該如何修正才能完整呈現為 0858及5505 ?

0708.rar (7.12 KB)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

發表於 2020-7-8 15:49 | 只看該作者

本帖最後由准提部林於 2020-7-8 15:52 編輯

陣列公式(三鍵):
=MID(LOOKUP(,-(1&SUBSTITUTE(MID(A1,MATCH(,MID(A1&1,ROW($1:$99),1)*0,),ROW($1:$15)),"-",))),3,15)

=MID(LOOKUP(,-(1&SUBSTITUTE(MID(A1,MIN(FIND(ROW($1:$10)-1,A1&1/17)),ROW($1:$15)),"-",))),3,15)

TOP

hcm19522

大學生 Rank: 4

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

熱烈參與勳章

3^#

發表於 2020-7-8 15:49 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/589219423

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

TOP

cypd

中學生 Rank: 2

帖子: 246
主題: 42
精華: 0
積分: 320
點名: 22
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2025-10-20

4^#

發表於 2020-7-8 16:39 | 只看該作者

回復 2# 准提部林

感謝准提部林版主提供解惑的方式
提供以上二種解題深獲良多 ^^

TOP

cypd

中學生 Rank: 2

帖子: 246
主題: 42
精華: 0
積分: 320
點名: 22
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2025-10-20

5^#

發表於 2020-7-8 16:42 | 只看該作者

回復 3# hcm19522
感謝
隨意窩 "EXCEL迷" blog 或 http://blog.xuite.net/hcm19522/twblog
提取數字從A列 (7123)之範例解答參考...^^

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1527
主題: 40
精華: 0
積分: 1551
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-11-4

6^#

發表於 2022-12-26 15:47 | 只看該作者

回復 1# cypd

謝謝前輩發表此主題與範例,以下是VBA的方式,請前輩參考
請教前輩們:
正則的結果可以用Join直接連接起來嗎?

迴圈連接執行結果:

Option Explicit
Sub TEST()
Dim Fn, Rg, Brr, Crr, i&, j&, Sh
Set Sh = ActiveSheet
Brr = Range(Sh.[A1], Sh.[A65536].End(3))
Set Rg = CreateObject("VBScript.RegExp")
Rg.Pattern = "\d+"
Rg.Global = True
ReDim Crr(1 To UBound(Brr), 0) As String
For i = 1 To UBound(Brr)
Set Fn = Rg.Execute(Brr(i, 1))
If Fn.Count > 0 Then
   For j = 0 To Fn.Count - 1 '請教各位前輩,可以用Join取代這迴圈嗎?
      Crr(i, 0) = Crr(i, 0) & Fn(j)
   Next
End If
Next
Sh.[D1].Resize(UBound(Brr), 1) = Crr
End Sub

'以下是測試一維陣列Join
Sub 一維陣列Join()
Dim T
T = [{1,2,3,4,5,6}]
MsgBox T(1)
MsgBox Join(T)
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1527
主題: 40
精華: 0
積分: 1551
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-11-4

7^#

發表於 2022-12-27 15:01 | 只看該作者

回復 6# Andy2483

回復自己的駑鈍
不再糾結Join
轉念:反向思考

以正則結果置換:

Option Explicit
Sub TEST() '今天學習到以正則結果置換
Dim i&, Brr, Sh
'↑宣告變數:i是長整數變數,其他是通用型變數
Set Sh = ActiveSheet
'↑令Sh這通用型變數是現用工作表
Brr = Range(Sh.[A1], Sh.[A65536].End(3))
'↑令Brr是二維陣列!以[A1]到A欄有內容最後一個儲存格,這範圍儲存格值倒入
With CreateObject("VBSCRIPT.REGEXP")
'↑以下是有關於正則的程序
For i = 1 To UBound(Brr)
'↑設順迴圈!i從1到Brr陣列縱向最大索引列號數
   .Global = True
   '↑設定全局可用
   .Pattern = "\D+"
   '↑匹配模式為非數字
   Brr(i, 1) = "'" & .Replace(Brr(i, 1), "")
   '↑令i迴圈列第1欄Brr陣列值是 "'"單引號連接 Brr陣列值至換掉非數字的正則
Next
End With
Sh.[E1].Resize(UBound(Brr), 1) = Brr
'↑令[E1]向下擴展 Brr陣列縱向最大索引列號數列,向右不擴展的範圍以Brr陣列值倒入
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

cypd