在excel表格里，能把双称一句话的首字母提取出来吗？

如果字符串在A1，那么在B1输入以下公式
=LEFT(A1)&"."&MID(A1,FIND(" ",A1)+1,1)&"."&MID(A1,FIND("座",SUBSTITUTE(A1," ","座",2))+1,1)

详见附图

Function jianma(mst As String)
Dim arr, st
arr = [{"",0;"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}]
For x = 1 To Len(mst)
 If Mid(mst, x, 1) Like "[0-9]" Then
  st = st & Mid(mst, x, 1)
 Else
  st = st & Application.VLookup(Mid(mst, x, 1), arr, 2)
 End If
Next x
jianma = st
End Function