[已解决]姓名转换成拼音公式

dbzcxy

姓名转换成拼音

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-12-5 18:17

1. =LOWER(BASE(SUM(IFNA(DECIMAL(LOOKUP(MID(A2,ROW($1:$4),1),MID("啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖西压匝ABCDEFGHJKLMNOPQRSTWXYZZ",ROW($1:$24)+{0,23},1)),36)*36^(LEN(A2)-ROW($1:$4)),)),36))

复制代码

数组公式，江苏大侠原创

跳转到最佳答案楼层

望帝春心

1. =LOWER(BASE(SUM(IFNA(DECIMAL(LOOKUP(MID(A2,ROW($1:$4),1),MID("啊芭擦搭蛾发噶哈击喀垃妈拿哦啪期然撒塌挖西压匝ABCDEFGHJKLMNOPQRSTWXYZZ",ROW($1:$24)+{0,23},1)),36)*36^(LEN(A2)-ROW($1:$4)),)),36))

复制代码

数组公式，江苏大侠原创

苏子龙

1. Option Compare Text
   
2. Function PY(ByVal rng As Range)
   
3.     Dim i%, k%, str$
   
4.     str = Replace(Replace(rng, " ", ""), "　", "")
   
5.     For i = 1 To Len(str)
   
6.         k = 1
   
7.         Do Until Mid("八嚓哒妸发旮铪讥讥咔垃妈拿哦妑七然仨他哇哇哇夕丫匝咗", k, 1) > Mid(str, i, 1)
   
8.             k = k + 1
   
9.         Loop
   
10.         PY = PY & Chr(64 + k)
    
11.     Next
    
12. End Function

复制代码

网上资料，一般有求能满足

苏子龙

望帝春心 发表于 2016-12-5 18:17
数组公式，江苏大侠原创

不能运行，是否还有自定义函数，ifna2010版本也没有，上传文件学习下

望帝春心

苏子龙 发表于 2016-12-6 08:10
不能运行，是否还有自定义函数，ifna2010版本也没有，上传文件学习下

IFNA是2013新增函数