EXCEL技巧——导出汉字姓名首字母

有好多网友想知道这个该款游戏的软件相关教程，既然如此81下载软件教程分类小编给众人奉上EXCEL技巧——导出汉字姓名首字母内容，希望能够帮助到大家，一起来看一下吧！

1. 我们经常在表中使用姓名，那么如何将姓名转换为拼音的首字母呢？ 在这里，我们将学习以下方法。工具/原料

   EXCEL软件

   方法/步骤

   导入一张含有姓名的表格，把姓名放到A列中，在B列中将要导出拼音。

   现在我们按住Alt+F11，打开VB编辑窗口，单击插入——模块，弹出代码编辑框。
   在代码编辑框中输入：

   Option Explicit

   Function PY(TT As Stng) As Vaant

   Dim i%, temp$

   PY = ""

   For i = 1 To Len(TT)

   temp = Asc(Mid$(TT, i, 1))

   If temp > 255 Or temp < 0 Then

   PY = PY & pinyin(Mid$(TT, i, 1))

   Else

   PY = PY & LCase(Mid$(TT, i, 1))

   End If

   Next i

   End Function

   Function pinyin(myStr As Stng) As Vaant

   On Err Resume Next

   myStr = StrConv(myStr, vbNarw)

   If Asc(myStr) > 0 Or Err.Number = 1004 Then pinyin = ""

   pinyin = Application.WorksheetFunction.VLookup(myStr, [{"吖","A";"八","B";"嚓","C";"搭","D";"蛾","E";"发","F";"噶","G";"铪","H";"击","J";"咔","K";"垃","L";"","M";"拿","N";"噢","O";"啪","P";"七","Q";"然","R";"仨","S";"他","T";"挖","W";"夕","X";"压","Y";"座","Z"}], 2)

   End Function

   关闭VB窗口。

   现在转到工作表中，我们在B2中输入=PY(A2),回车我们就看到姓名的拼音首字母显示出来了。
   我们用填充手柄把B列中的单元格全部填满，这时候我们要的效果就出现了。
   

以上的内容确是关于《EXCEL技巧——导出汉字姓名首字母》软件资讯全部了，希望能够帮到正在需要该款软件教程网友！更多丰富该款游戏软件内容教程,多多支持81下载！