excel根据中文生成首字母(excel汉字自动生成拼音首字母)

1. excel汉字自动生成拼音首字母

步骤：第一步、启动Excel 2003（其它版本请仿照操作），打开相应的工作表；第二步、执行“工具→宏→Visual Basic编辑器”命令（或者直接按“Alt+F11”组合键），进入Visual Basic编辑状态；第三步、执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态；第四步、将代码输入其中；Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase -20319 To -20284: pinyin = "A"Case -20283 To -19776: pinyin = "B"Case -19775 To -19219: pinyin = "C"Case -19218 To -18711: pinyin = "D"Case -18710 To -18527: pinyin = "E"Case -18526 To -18240: pinyin = "F"Case -18239 To -17923: pinyin = "G"Case -17922 To -17418: pinyin = "H"Case -17417 To -16475: pinyin = "J"Case -16474 To -16213: pinyin = "K"Case -16212 To -15641: pinyin = "L"Case -15640 To -15166: pinyin = "M"Case -15165 To -14923: pinyin = "N"Case -14922 To -14915: pinyin = "O"Case -14914 To -14631: pinyin = "P"Case -14630 To -14150: pinyin = "Q"Case -14149 To -14091: pinyin = "R"Case -14090 To -13319: pinyin = "S"Case -13318 To -12839: pinyin = "T"Case -12838 To -12557: pinyin = "W"Case -12556 To -11848: pinyin = "X"Case -11847 To -11056: pinyin = "Y"Case -11055 To -2050: pinyin = "Z"Case Else: pinyin = pEnd SelectEnd FunctionFunction getpy(str)For i = 1 To Len(str)getpy = getpy & pinyin(Mid(str, i, 1))Next iEnd Function第五步、代码输入完成后，关闭Visual Basic编辑窗口，返回Excel编辑状态；第六步、自定义函数就可以用了，如：选中A2单元格，输入公式：=getpy(A2)。

2. excel 拼音首字母

首先用office Excel 2007打开文档；

然后鼠标标定在D2单元格，输入公式“=getpy(C2)”，按回车键确认；

我们就看到姓名一栏汉语拼音就自动出现了；

选中D2单元格，鼠标放在单元格右下角,当出现“+”后，向下拖动鼠标；

这样，姓名一栏所有的汉字都以拼音形式显示了；

如果我们需要将拼音的首字母变成大写的话，可以将鼠标标定在E2单元格中，

然后输入公式“=PROPER(D2)”，按回车确认；

这样，我们需要的拼音的首字母就变成大写的了。

然后重复步骤将鼠标放在单元格右下角,当出现“+”后，向下拖动鼠标，就完成了

3. excel汉字自动生成拼音程序

打开Excel表格，选中第二行的单元格，输入汉字，然后点击菜单栏中的“开始”。

在“字体”功能区中选择“显示拼音字段”，此时第二行的单元格的上端会空出拼音显示区域。

在“字体”功能区中选择“编辑拼音”命令，最后输入拼音即可。

4. excel汉字自动生成首拼代码

第一步，打开/新建word文档

第二步，点击”开始“

第三步，选中表格

第四步，找到“表格”点击

第五步，点击“表格转换成文本“

5. excel如何自动生成拼音首字母

首先在自己电脑上，打开Excel一份表格。这上面的名字都是自己编的，如果和你相同的名字纯属巧合。

我们就在打开的表格D1单元格上，输入转拼音的汉字，然后在D2单元格里输入=getpy(A2)公式。因为姓名在A列上，所以需要引用单元格选择A2。

输入完公式选中好引用名字的单元格之后，按下确定键在D2单元格就可以看到姓名已经转换成拼音了。

然后选中D2单元格的拼音名字，向下拉对下列单元格进行转换即可。

现在看到D列单元格里已经转换成拼音名字了。为了更好的区分字母的大不写，我们在E1单元格上输入相应的汉字作为提示，然后在E2单元格里输入=PROPER(D2)公式。

最后，把E2单元格的拼音名字向下填充即可。

6. excel 自动生成拼音

1.打开一份Excel文档，在第一列输入一些中文汉字。

2.然后按下快捷键【Alt+F11】，调出VB宏编辑界面，然后点击上方的【插入】按钮。

3.然后点击【模块】，可以看到，会出现一个代码输入界面。

4.在代码界面输入代码：

Function pinyin(p As String) As String

i = Asc(p)

Select Case i

Case -20319 To -20284: pinyin = "A"

Case -20283 To -19776: pinyin = "B"

...

Case Else: pinyin = p

End Select

End Function

Function getpy(str)

For i = 1 To Len(str)

getpy = getpy & pinyin(Mid(str, i, 1))

Next i

End Function

如图。

5.代码输入完成后，关闭Visual Basic编辑窗口，返回Excel编辑状态，然后在第二列第一行输入函数getpy(A1)，按下【Enter】键。

6.然后拖动填充柄，可以看到，第二列显示了汉字的首字母拼音。