ML089

¦^´_ 1# Hsieh

¨D¦r¦ê¤¤¦³´X­Ó¦r¥À¡A´£¨Ñ¤@¦¡¦p¤U
=SUMPRODUCT((MID(UPPER(A1),ROW($1:$99),1)=CHAR(COLUMN(A:Z)+64))*1)

UPPER()¨ç¼Æ±N¤p¼g¦r¥À§ï¬°¤j¼g¦r¥À¡A¥iÁY´î¤j¤p¦r¥À§PÂ_

¦¹¦¡¾A¦X§@¬°¼Æ¾Ú°}¦C³B²zªº½d¨Ò¤½¦¡

stillfish00

¦^´_ 1# Hsieh
­ì¼gªk¬O¨ú¥N±¼¦r¦ê¤¤«D¦r¥Àªº¦r¤¸
³o¸Ìµy·L­×§ï , ´£¨Ñ¥t¤@ºØ¼gªk
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