Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-5-7 14:28 | 只看該作者

[分享] 正則表達式(bosco_yip 原創)

正則表達式
給參考 :

問題 : 求一字符串字母個數
A1= ascd2G34dH_漢字!ya，不區分大小寫。答案是9

1] 函數解法 :

=SUMPRODUCT(--(ABS(CODE(MID(UPPER(A1),ROW(INDIRECT("1:"&LEN(A1))),1))-77.5)<13))

2] 用"正則表達式" (Regular Expression), 寫的自訂函數 :

Function CountAlpha(Mystr)
Dim RegExp As Object
Set RegExp = CreateObject("vbscript.regexp")
RegExp.Global = True
RegExp.ignorecase = True
RegExp.Pattern = "[^a-zA-Z]"
CountAlpha = Len(RegExp.Replace(Mystr.Value, ""))
End Function

樓主熱帖

學海無涯_不恥下問

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

12^#

發表於 2012-9-24 19:26 | 只看該作者

回復 1# Hsieh
原寫法是取代掉字串中非字母的字元
這裡稍微修改 , 提供另一種寫法
Function CountAlpha(Mystr)
Dim RegExp As Object
Set RegExp = CreateObject("vbscript.regexp")
RegExp.Global = True
RegExp.Pattern = "[a-zA-Z]"
CountAlpha = RegExp.Execute(Mystr.Value).Count
End Function

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

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

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

11^#

發表於 2012-9-23 19:10 | 只看該作者

回復 1# Hsieh

求字串中有幾個字母，提供一式如下
=SUMPRODUCT((MID(UPPER(A1),ROW($1:$99),1)=CHAR(COLUMN(A:Z)+64))*1)

UPPER()函數將小寫字母改為大寫字母，可縮減大小字母判斷

此式適合作為數據陣列處理的範例公式

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

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

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

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

10^#

發表於 2012-9-23 17:20 | 只看該作者

回復 2# toomellowhaw

如字串是 "aA123bB"
=SUMPRODUCT(LEN(A1)-LEN(SUBSTITUTE(UPPER(A1),CHAR(ROW(65:90)),))) 算出 2
(算出多少種英文字母不分大小寫)

=SUMPRODUCT(--(ABS(CODE(MID(UPPER(A1),ROW(INDIRECT("1:"&LEN(A1))),1))-77.5)<13)) 算出 4
(算出多少個英文字母不分大小寫)

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

TOP

flying008

中學生 Rank: 2

帖子: 40
主題: 3
精華: 0
積分: 93
點名: 0
作業系統: Windows200*
軟體版本: Office2**3
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2015-10-14

9^#

發表於 2010-9-28 17:23 | 只看該作者

感觉正则式其实在EXCEL应用起来的话功能是相当强大的, 只是其自定义函数的编写规则似乎难懂……

只有想不到的,
没有做不到的.

TOP

asimov

中學生 Rank: 2

帖子: 130
主題: 4
精華: 0
積分: 162
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2010-5-7
最後登錄: 2011-7-16

8^#

發表於 2010-9-26 01:00 | 只看該作者

本帖最後由 asimov 於 2010-9-26 01:05 編輯

回復 2# toomellowhaw

toomellowhaw兄用取代的方式很有啟發性
收下學習了,謝謝

Hsieh 版主的函數解法似乎少了 "&"
=SUMPRODUCT(--(ABS(CODE(MID(UPPER(A1),ROW(INDIRECT("1:"&LEN(A1))),1))-77.5)<13))

機器人三大定律-保護人類、服從命令、保護自己
我的三大定律-生命、生存、生活

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

7^#

發表於 2010-9-25 00:43 | 只看該作者

我也是由bosco_yip 指導初識正則表達式的。

TOP

toomellowhaw

中學生 Rank: 2

帖子: 54
主題: 1
精華: 0
積分: 60
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-6-27
最後登錄: 2016-11-4

6^#

發表於 2010-9-24 21:35 | 只看該作者

呵，沒關係
在這兒逛逛，看看一些以前的文章，常能挖到寶..
看到一些題目，想試試自己能不能解，
練一練函數的用法，還需要大家多多指教，
如果有缺失或考慮不周全之處，務請指正，感恩..

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2010-9-24 21:29 | 只看該作者

回復 4# toomellowhaw

抱歉!是我一時看錯題意

學海無涯_不恥下問

TOP

toomellowhaw

中學生 Rank: 2

帖子: 54
主題: 1
精華: 0
積分: 60
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2010-6-27
最後登錄: 2016-11-4

4^#

發表於 2010-9-24 21:25 | 只看該作者

問題的原意不是只要算英文字母數嗎？..還是我誤會了？

TOP