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

有若干朋友不清楚当前EXCEL的软件相关教程，接下来神奇下载软件教程频道编辑给各位送上EXCEL技巧——导出汉字姓名首字母资讯，希望能够帮助到大家，一起来了解一下吧！

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

工具/原料

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技巧——导出汉字姓名首字母》软件资讯全部了，希望能够帮到正在需要EXCEL软件教程朋友！更多精彩EXCEL软件资讯教程,可以收藏我们神奇下载！

相关文章

excel怎么固定住表头_如何把excel表头固定不动

怎样在Excel中插入函数《IF函数002》

Excel2010创建迷你图(excel2010迷你图创建在哪里)

怎样在Excel中插入函数《ROUND函数》

使用Excel求两列的交集(excel两列数据不同)

Excel教程：如何在Excel中自动生成人民币大写

excel打印如何使用自定義的紙張(EXCEL如何自定义公式)

怎样在Excel中插入函数《SUM函数002》

Excel2010创建图表(excel2010创建图表时要打开)

EXCEL如何制作控件动态图表(excel制作条形码控件是哪一个)