单元格中的是中文，如何返回这些字的英文首字母

grayw

单元格中的是中文，如何返回这些字的英文首字母，不用VBA只用函数是否可以实现？谢谢！

qwer401245

ww87725244

要么有对应表，要么VBA

咔咔乱坠

excel，好像是海鲜老师的

1. =CONCAT(IFNA(BASE(MATCH(MID(A2,SEQUENCE(LEN(A2)),1),MID("吖八擦咑鵽发伽哈丌丌咔垃妈拿哦妑七然仨他屲屲屲夕丫帀",ROW($1:$26),1))+9,36),""))

复制代码

wps，改海鲜老师

1. =CONCAT(IFNA(VLOOKUP(MID(A2,SEQUENCE(LEN(A2)),1),{"吖","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"},2),""))

复制代码

vba自定义函数，忘了哪位朋友的了

1. '批量提取首字母
   
2. Function 首字母$(ByVal rng$)
   
3.     Dim i%, 首字母Arr, str$, ch$
   
4.     首字母Arr = [{"吖","A";"八","B";"攃","C";"咑","D";"妸","E";"发","F";"旮","G";"哈","H";"丌","J";"咔","K";"垃","L";"妈","M";"乸","N";"噢","O";"帊","P";"七","Q";"冄","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}]
   
5.     str = Replace(Replace(rng, " ", ""), "　", "")          '去空格和Tab
   
6.     For i = 1 To Len(str)
   
7.         ch = Mid(str, i, 1)
   
8.         If ch Like "[一-龥]" Then   '如果是汉字，进行转换
   
9.             首字母 = 首字母 & WorksheetFunction.Lookup(Mid(str, i, 1), 首字母Arr)
   
10.         Else
    
11.             '首字母 = 首字母 & UCase(ch)     '如果不是汉字，直接输出
    
12.         End If
    
13.     Next
    
14. End Function
    

复制代码

grayw

咔咔乱坠 发表于 2024-7-12 11:47
excel，好像是海鲜老师的
wps，改海鲜老师
vba自定义函数，忘了哪位朋友的了

我用的是wps，大虾的公式提取的是第一个字的首字母，想请问同时提取第二个字的首字母呢？

痛痛痛痛

使用插件：慧办公

痛痛痛痛

二楼就是 wps 公式

咔咔乱坠

grayw 发表于 2024-7-12 13:29
我用的是wps，大虾的公式提取的是第一个字的首字母，想请问同时提取第二个字的首字母呢？

你试试不就知道了

grayw

痛痛痛痛 发表于 2024-7-12 14:09
二楼就是 wps 公式

软件更新不了，所以用不了~

grayw

咔咔乱坠 发表于 2024-7-12 14:17
你试试不就知道了

试了，只显示了首字母~