一个函数题 - excel吧

level 13

阿良楼主

统计单元格字母个数,
链接：百度网盘
提取码：u69i

2023年05月21日 09点05分 1

level 14

凶恶毛里😈

还在想我想到后贴出来

2023年05月21日 10点05分 2

阿良

感觉45符已经是这个题的极限了.

2023年05月21日 10点05分

凶恶毛里😈

@阿良整列44

2023年05月21日 10点05分

level 14

凶恶毛里😈

连翻两次车这次应该行了=COUNT(0/FIND(MID(UPPER(A2),ROW(INDIRECT("1:"&LEN(A2))),1),"ABCDEFGHIJKLMNOPQRSTUVWXYZ"))

2023年05月21日 10点05分 5

凶恶毛里😈

@阿良这题目虽然不难但知识点非常多而且是很容易被人遗忘那种

2023年05月21日 12点05分

阿良

seach好像没问题呀.大小写它都认得

2023年05月21日 10点05分

凶恶毛里😈

@阿良有*

2023年05月21日 11点05分

凶恶毛里😈

@阿良所以这题目出得很好很多方面都考虑到了出题者比解题者辛苦很多是一道很有诚意的题目 [真棒]

2023年05月21日 11点05分

level 9

贴吧用户_QNQGDtW

可以用code啊

2023年05月21日 15点05分 6

阿良

2023年05月21日 17点05分

level 3

楼兰城主

=COUNT(0/(CHAR(ROW($65:$90))=MID(A1,COLUMN(A:Z),1)))
=COUNT(N(INDIRECT(MID(A1,ROW($1:26),1)&1)))

2023年05月21日 15点05分 7

凶恶毛里😈

抄阿良的=COUNT(0/(DECIMAL(MID(A2,ROW($1:9),1),36)>9))

2023年05月21日 20点05分

凶恶毛里😈

再抄阿良的=SUM(N(CHAR(COLUMN(BM:CL))=MID(A2,ROW($1:9),1)))

2023年05月21日 20点05分

阿良

哇城主大神来了. 43符. 又是想不到的姿势.

2023年05月21日 16点05分

阿良

@阿良整列41

2023年05月21日 16点05分

level 10

你干嘛～哎哟哟

=SUM(N(MIDB(A2,ROW($1:20),1)>"9"))
大佬做的

2023年05月22日 06点05分 8

你干嘛～哎哟哟

ROW(A:A)确实更短，就是卡

2023年05月22日 07点05分

阿良

新姿势

2023年05月22日 07点05分

凶恶毛里😈

加不了

2023年05月22日 07点05分

凶恶毛里😈

所以再来一次

2023年05月22日 07点05分

level 4

唯她魅

请教一下为什么完全相同的式子，两个版本的excel结果不一样？8楼的式子

2023年05月23日 03点05分 9

阿良

这又是为啥？

2023年05月23日 03点05分

阿良

@阿良观察了一下规律,似乎有汉字就会出错,是这样吗?midb汉字返回的是code(32),网页版认为code(32)>"9", 安装版认为code(32)<或="9". 可以这么理解吗?

2023年05月23日 04点05分

阿良

@阿良就是空格

2023年05月23日 04点05分

阿良

@阿良再在数据源里手打上空格,验证一下,它会不会变多一个?

2023年05月23日 04点05分

level 8

把心掐死😄

Sub jjkljkl()
arr = Range("a2:a" & Range("a60000").End(xlUp).Row)
Set reg = CreateObject("VBScript.RegExp")
With reg
.Pattern = "[^a-zA-Z]+"
.Global = True
For i = 1 To UBound(arr)
arr(i, 1) = Len(reg.Replace(arr(i, 1), ""))
Next
End With
Range("c2").Resize(UBound(arr), 1) = arr
Set reg = Nothing
End Sub

2023年05月23日 08点05分 10

level 10

你干嘛～哎哟哟

我看到老贴了https://tieba.baidu.com/p/70333467

2023年05月31日 09点05分 11

凶恶毛里😈

@你干嘛～哎哟哟 05年的贴也让您挖出来了 [真棒]

2023年05月31日 09点05分

level 5

风亦涵

阿良，借用您的贴子，请都一个函数公式，谢谢！

2023年07月05日 06点07分 12

风亦涵

谢谢您的提醒！已更新，实现动态数组了。

2024年03月24日 05点03分

阿良

textsplit（textjoin（“ ”，，a：a），，“ ”）

2023年07月05日 06点07分

风亦涵

@阿良感谢老师回复！我用的WPS，没有textsplit函数呢。老师可以修改一下为WPS所用吗？

2023年07月05日 06点07分

阿良

@风亦涵 trim（mid（substitute（textjoin（“ ”，，a：a），“ ”，rept（“ ”，99）），row（）*99-98，99））

2023年07月05日 06点07分

level 11

不会VBA

写不出来短的...
=SUMPRODUCT(--(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>=65)*(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))<=90)+(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))>=97)*(CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))<=122))

2024年01月16日 05点01分 13

level 8

过客_0001

Sub t1()
Dim reg As New RegExp, rng As Range, sj
With reg
.Global = 1
.Pattern = "[a-zA-Z]"
For Each rng In Range("a1", Cells(Rows.Count, 1).End(xlUp))
Set sj = .Execute(rng)
rng.Offset(0, 1).Value = sj.Count
Next rng
End With
End Sub

2024年01月16日 06点01分 14

level 11

不会VBA

还是VBA好使

2024年01月16日 06点01分 15

level 9

苍天有泪414

2024年01月25日 06点01分 16

level 7

caulen

=LET(a,CODE(MID(LOWER(A1),SEQUENCE(LEN(A1)),1)),SUM((a>=97)*(a<=122)))

2024年01月25日 06点01分 17