在Excel里面怎么自动提取字段的前三个字的拼音首字母？

提取首字母吗？

这个自定义函数可以

function py(byval rng as range)

dim i%, k%, str$

str = replace(replace(rng, " ", ""), "　", "")

For i = 1 to len(str)

if mID(str, i, 1) < "吖" then

py = py & mID(str, i, 1)

else

k = 1

do until mID("八擦哒妸发旮铪讥讥咔垃妈拿哦妑七然仨他哇哇哇夕丫匝咗", k, 1) > mID(str, i, 1)

k = k + 1

loop

py = py & chr(64 + k)

end if

next

end function

单元格中输入=py（要提取的单元格地址）就可以，参见附件，注意要启用宏

b2输入

=lookup(code(b2),45217+{0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},{"a","b","c","d","e","f","g","h","j","k","l","m","n","o","p","q","r","s","t","w","x","y","z"})&lookup(code(mID(b2,2,1)),45217+{0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},{"a","b","c","d","e","f","g","h","j","k","l","m","n","o","p","q","r","s","t","w","x","y","z"})&lookup(code(mID(b2,3,1)),45217+{0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},{"a","b","c","d","e","f","g","h","j","k","l","m","n","o","p","q","r","s","t","w","x","y","z"})

向下托