如何在数字与字母中提取字母的长度

ggsmart

数组公式：
=COUNT(N(INDIRECT(MID(A1,ROW(1:99),1)&"1")

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
后面的朋友说少了两个括号，我一看，果然少了！于是，赶快来补上，顺便把&1那里改一下，改成4^8了，呵呵！！

=COUNT(N(INDIRECT(MID(A1,ROW(1:99),1)&4^8)))

[ 本帖最后由 ggsmart 于 2010-5-29 23:28 编辑 ]

laowuwyx

原帖由 ggsmart 于 2010-5-29 02:23 发表
数组公式：
=COUNT(N(INDIRECT(MID(A1,ROW(1:99),1)&"1")

麻烦老师讲讲这个公式的原理，谢谢！

aroffice

学习了！！！

Cathy.James

这么多高手出招,收获了

cgzn

用vba来凑凑热闹，显示字母，小写字母，数字，其他字符个数

1. Private Sub CommandButton2_Click()
   
2. 
   
3. arr = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z")
   
4. ary = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
   
5. r = 0: s = 0: t = 0
   
6. For i = 1 To Len([a1])
   
7.     tmp = Filter(arr, Right(Left([a1], i), 1))
   
8.    
   
9.     If IsError(Application.Match(Right(Left([a1], i), 1), arr, 0)) = False Then r = r + 1
   
10.     If UBound(tmp) > -1 Then s = s + 1
    
11.     If IsError(Application.Match(Right(Left([a1], i), 1), ary, 0)) = False Then t = t + 1
    
12.    
    
13. Next
    
14. MsgBox ("数字有" & t & "个" & "," & "字母有" & r & "个" & "," & "其中小写字母有" & s & "个" & "," & "其他字符有" & Len([a1]) - r - t & "个")
    
15. 
    
16. 
    
17. End Sub

复制代码

ggsmart

原帖由 laowuwyx 于 2010-5-29 06:46 发表

麻烦老师讲讲这个公式的原理，谢谢！

=COUNT(N(INDIRECT(MID(A1,ROW(1:99),1)&"1")

假如A1单元格值为：A1e8k9cd。
那公式从内到外开始：
1、MID(A1,ROW(1:99),1)= {"A";"1";"e";"8";"k";"9";"c";"d"}     后面还有一串""，这里省略了，不再列出。
2、MID(A1,ROW(1:99),1)&1={"A";"1";"e";"8";"k";"9";"c";"d"}&1={"A1";"11";"e1";"81";"k1";"91";"c1";"d1"}     同样，后面原来是""地方我省略了。计算完这步后，原单元格中有数值的地方就变成了A1,B1,C1之类的单元格区域的名称了。
3、在第二步的结果前用上indirect函数，把文本转为单元格引用，“A1”这样的结果能得到对A1单元格的引用，而“11”之样的则返回错误值。
4、在第三肯的前面用上N函数，这个函数不用多加说明了吧？原来是错误的返回错误，其他的返回数值了。
5、最后一步，在外面用上count，统计结果里有多少数值。即为字母数！

hopeson2010

=LEFT(A1,SUMPRODUCT((CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>=97)*(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))<=122)))

wangg913

原帖由 ggsmart 于 2010-5-29 12:50 发表


=COUNT(N(INDIRECT(MID(A1,ROW(1:99),1)&"1")

假如A1单元格值为：A1e8k9cd。
那公式从内到外开始：
1、MID(A1,ROW(1:99),1)= {"A";"1";"e";"8";"k";"9";"c";"d"}     后面还有一串""，这里省略了，不再列出 ...

老师开课啦啦。。。。。。。

lrlxxqxa

从头看到38楼，最喜欢的公式就是=MIN(IF(ISERROR(--MID(A1,ROW(1:100),1)),"",ROW(1:100)))-1
多简单啊，就是在遇到字母和数字混杂的时候会出错了。

cgzn

原帖由 lrlxxqxa 于 2010-5-29 15:31 发表
从头看到38楼，最喜欢的公式就是=MIN(IF(ISERROR(--MID(A1,ROW(1:100),1)),"",ROW(1:100)))-1
多简单啊，就是在遇到字母和数字混杂的时候会出错了。

36楼不是更简单？可惜就是不能区分大小写

[ 本帖最后由 cgzn 于 2010-5-29 16:00 编辑 ]