提取字串內數字比大小 - Excelㄧ般區

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

20^# 跳轉到 »

發表於 2021-6-22 09:33 | 只看該作者

回復 17# 准提部林

中文...沒多去測試--特殊字/簡體/日本中文--會不會有判錯
>> 經過測試，真的有問題，謝謝

TOP

wayne0303

中學生 Rank: 2

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 161
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2026-10-1

19^#

發表於 2021-6-21 16:24 | 只看該作者

回復 16# hcm19522

謝謝h大~

TOP

wayne0303

中學生 Rank: 2

帖子: 99
主題: 18
精華: 0
積分: 164
點名: 161
作業系統: Win 10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2019-1-17
最後登錄: 2026-10-1

18^#

發表於 2021-6-21 16:18 | 只看該作者

本帖最後由 wayne0303 於 2021-6-21 16:22 編輯

回復 10# 准提部林

感謝准大相助！

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

17^#

發表於 2021-6-21 16:06 | 只看該作者

回復 14# samwang

中文...沒多去測試--特殊字/簡體/日本中文--會不會有判錯,
所以不太敢用~~

TOP

hcm19522

碩士班 Rank: 5 Rank: 5

帖子: 1800
主題: 186
精華: 0
積分: 1991
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 100
性別: 男
註冊時間: 2015-9-11
最後登錄: 2026-10-2

熱烈參與勳章

16^#

發表於 2021-6-21 16:05 | 只看該作者

回復 8# wayne0303

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

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

TOP

hcm19522

碩士班 Rank: 5 Rank: 5

帖子: 1800
主題: 186
精華: 0
積分: 1991
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 100
性別: 男
註冊時間: 2015-9-11
最後登錄: 2026-10-2

熱烈參與勳章

15^#

發表於 2021-6-21 16:04 | 只看該作者

回復 10# 准提部林

謝了疏忽了

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

14^#

發表於 2021-6-21 15:57 | 只看該作者

回復 13# 准提部林

感謝准大指導，另外剛剛google 一下，分享多一個中文寫法，謝謝。

MsgBox "中" Like "[一-籲]" '中文字

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

13^#

發表於 2021-6-21 15:21 | 只看該作者

回復 12# samwang

MSGBOX "1" LIKE "#"
MSGBOX "1" LIKE "[0-9]"
MSGBOX "123" LIKE "###"  '三個數字. 一個#為一個數字

MsgBox "A" Like "[A-Z]"  '大寫
MsgBox "a" Like "[a-z]"  '小寫
MsgBox "x" Like "[A-z]"  '大小寫

MsgBox "7" Like "[0-9A-Z-/+]"  '數字_英大寫_符號-/+

部份與正則用法類似, 但我對正則不熟, 只能就所知玩玩~~

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2026-5-26

12^#

發表於 2021-6-21 14:26 | 只看該作者

回復 11# 准提部林

准大，請教一下 Like "#" 是取數字，我是用ASCII判斷，那如果是只取英文，要如何寫 Like ...
另外這種寫法要如何查到所有相關資訊(如特殊符號、英文大寫...)，
因為ASCII有相關資訊，只要找到就可以擷取相關字，謝謝

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

11^#

發表於 2021-6-21 14:01 | 只看該作者

Sub TEST_a1()
Dim Arr, i&, j%, TR, V1, V2
Arr = Range([b1], [b65536].End(xlUp))
For i = 2 To UBound(Arr)
TR = Split(Arr(i, 1), "-"): Arr(i - 1, 1) = "": V = ""
If UBound(TR) < 1 Then GoTo i01
For j = 1 To Len(TR(0))
If Mid(TR(0), j, 1) Like "#" Then V1 = Val(Mid(TR(0), j)): Exit For
Next j
If V1 = "" Or V1 > 390 Then GoTo i01
V2 = Val(TR(UBound(TR)))
Arr(i - 1, 1) = IIf(V2 > 180, "", IIf(V2 > 90, 2, 1))
i01: Next i
[c2].Resize(UBound(Arr) - 1) = Arr
End Sub

TOP

[發問] 提取字串內數字比大小

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]