怎样在excel中把汉字转换成拼音

软件版本：Office2013 方法如下： 1.Alt+F11，打开VBA编辑界面，插入模块，在模块中输入如下代码： Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319 To -20318: pinyin = "a " ……（受字数，中间部分省略） Ca

excel是一个功能强大并且易于操作的办公软件，不管是在工作中还是在学习上，都带来了很大的便利。那么下面就来介绍如何在excel中把汉字转换成拼音。

材料/工具

excel

方法

首先，打开要转换成拼音的excel表格。

打开Excel->工具->宏->Viaual Basic编辑器 在弹出来的窗口中对着VBAproject点右键->插入->模块 下面会出现一个名为"模块1"，点击 在右边的空白栏中粘贴以下内容： Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319

按“Alt+F11”组合键，进入Visual Basic编辑状态，也就是看到的这个灰色的编辑界面。

1.启动Excel，打开相应的工作表。 2.执行“工具→宏→Visual Basic编辑器”命令（或者直接按“Alt+F11”组合键），进入Visual Basic编辑状态。 3.执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态。 4.将代码输入其中。

执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态。

1、首先选中姓名单元格区域，点击右上角的工具箱。 2、然后点击页面上方的拼音笔画。 3、点击打开列表中的汉字转拼音。 4、接着点击页面中间的确定按钮。 5、选择将结果保存的位置点击确定。 6、最后就可以看到所有的汉字都转换成了拼音。

看到空白界面后，将下面的所有内容复制，粘贴到空白处。

Excel如何把汉字转换成拼音 1 2 3 4 5 6 7 我们在工作中有时候会用到Excel做表格，excel录入中文，不能自动转换成拼音，那么怎么样可以快速的把汉字转换成拼音呢？下面跟我来简单的操作一下。 百度经验:jingyan.baidu.com 工具/原料 Excel 2007

按下ALT+Q关闭Visual Basic编辑窗口，返回Excel编辑状态。

可以但用起来很复杂累人，也不可能在这里说明白，只在这里说的一下简单的无理，以其中一种方法为例。 利用VLOOKUP这类的函数，在次列把本列单元格内拼音转换成汉字。 首先别设一张引用源数据表，A列是拼间 B列为汉字 通函数依引用源数据表A列为

选中转换后的拼音需要放在哪个列，例如要把B列的第2行的内容转换成拼音，放在D列的第2个单元格，输入公式：=getpy(B2)，这里的B2，是指源头单元格的坐标。

Excel内是可以把中文转换成为拼音的，但需要转换函数（函数可通过网络上面下载），下面给出具体操作方法： 所需材料：Excel、准备好的中文转拼音函数。 一、首先打开Excel软件，然后按Alt+F11打开Viaual Basic编辑器，点击工具栏“插入”，选项内

如果要去除拼音之间的空格。去掉空格的拼音放在E列，如果这个未去掉空格的数据原来在D2单元格，去掉空格之后的拼音放在E2单元格，则在E2单元格输入： =SUBSTITUTE(D2," ","")，然后就转换完成了。

打开Excel->工具->宏->Viaual Basic编辑器 在弹出来的窗口中对着VBAproject点右键->插入->模块 下面会出现一个名为"模块1"，点击 在右边的空白栏中粘贴以下内容： Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319

扩展阅读，以下内容您可能还感兴趣。

如何将EXCEL表格中的汉字转为拼音

启动Excel （其它版本请仿照操作），打开相应的工作表；

2.执行“工具→宏→Visual Basic编辑器”命令（或者直接e79fa5e98193e78988e69d8331333339663966按“Alt+F11”组合键），进入Visual Basic编辑状态；

执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态；

将代码输入其中:

Function pinyin(p As String) As String

i = Asc(p)

Select Case i

Case -20319 To -20318: pinyin = "a "

Case -20317 To -20305: pinyin = "ai "

Case -20304 To -20296: pinyin = "an "

Case -20295 To -20293: pinyin = "ang "

……

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编辑状态；

6.定义函数就可以用了，如：选中A2单元格，输入公式：=getpy(A2)。

excel 如何把”汉字“转换为”拼音首字母“，切记为”拼音首字母“！！！！????

以Excel2007为例：

1、打开相应的Excel文件,按“Alt+F11”组合键，弹出“Visual Basic编辑器”如下图：

2、鼠标点击“Visual Basic编辑器”菜单栏的“插入”选项，选择下拉列表里的“模块”，插入“模块”，如下图：

3、将下面的代码复制粘贴到里面：

Function getpychar(char)

    tmp = 65536 + Asc(char)

    If (tmp >= 45217 And tmp <= 45252) Then

    getpychar = "A"

    ElseIf (tmp >= 45253 And tmp <= 45760) Then

    getpychar = "B"

    ElseIf (tmp >= 45761 And tmp <= 46317) Then

    getpychar = "C"

    ElseIf (tmp >= 46318 And tmp <= 46825) Then

    getpychar = "D"

    ElseIf (tmp >= 46826 And tmp <= 47009) Then

    getpychar = "E"

    ElseIf (tmp >= 47010 And tmp <= 47296) Then

    getpychar = "F"

    ElseIf (tmp >= 47297 And tmp <= 47613) Then

    getpychar = "G"

    ElseIf (tmp >= 47614 And tmp <= 48118) Then

    getpychar = "H"

    ElseIf (tmp >= 48119 And tmp <= 49061) Then

    getpychar = "J"

    ElseIf (tmp >= 49062 And tmp <= 49323) Then

    getpychar = "K"

    ElseIf (tmp >= 49324 And tmp <= 49895) Then

    getpychar = "L"

    ElseIf (tmp >= 49896 And tmp <= 50370) Then

    getpychar = "M"

    ElseIf (tmp >= 50371 And tmp <= 50613) Then

    getpychar = "N"

    ElseIf (tmp >= 50614 And tmp <= 50621) Then

    getpychar = "O"

    ElseIf (tmp >= 50622 And tmp <= 50905) Then

    getpychar = "P"

    ElseIf (tmp >= 50906 And tmp <= 51386) Then

    getpychar = "Q"

    ElseIf (tmp >= 51387 And tmp <= 51445) Then

    getpychar = "R"

    ElseIf (tmp >= 51446 And tmp <= 52217) Then

    getpychar = "S"

    ElseIf (tmp >= 52218 And tmp <= 52697) Then

    getpychar = "T"

    ElseIf (tmp >= 52698 And tmp <= 52979) Then

    getpychar = "W"

    ElseIf (tmp >= 52980 And tmp <= 53640) Then

    getpychar = "X"

    ElseIf (tmp >= 53679 And tmp <= 54480) Then

    getpychar = "Y"

    ElseIf (tmp >= 54481 And tmp <= 62289) Then

    getpychar = "Z"

    Else '如果不是中文，则不e799bee5baa6e79fa5e98193e59b9ee7ad9431333363353832处理

    getpychar = char

    End If

End Function

'逐个取ASC码

Function getpy(str)

    For i = 1 To Len(str)

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

    Next i

End Function

然后关闭Visual Basic编辑窗口，返回Excel编辑状态。分别如下图：

4、选中B2单元格，输入公式"=getpy(a1)",鼠标移到B2单元格右下角，下拉填充公式即可，如下图：

如何将EXCEL表格中的汉字转为拼音

在word 和EXCEL中，都可以：

选中内容----格式---拼音指百南

但，在EXCEL中，用起来不度如word 中方便，可以在word中形成，再粘贴知到别的地方，如粘贴到EXCEL中。道

如(rú)何(hé)将(jiāng)EXCEL表(biǎo)格(gé)中(zhōng)的(de)汉(hàn)字(zì版)转(zhuǎn)为(wéi)拼(pīn)音(yīn)

--------这是在word中形成的，权但，在word 和EXCEL中，拼音在字的上面。

如何在EXCEL2016中将中文姓名显示为拼音

按步骤来：

1，按组合键ALT+F11调出VB窗口——制插入——模块（复制代码zd到新模块中，复制完后始可关闭VB窗口。代码私信提供给你）

2.写入公式：=IF(LEN(A1)=2,getpy(A1),getpy(LEFT(A1,2)&"'"&getpy(RIGHT(A1,1))))

追问谢谢！ 那一撇应该是这样的： 先 ： xian， 西安： xi'an

这样可以区分吗？

另外，姓和名的首字母分别大写怎么弄？ 司马相如：Sima Xiangru

2010版excel中如何将输入的汉字转换成拼音

亲，这个可以用VBA编写自定百义函数解决。但是对于生僻字和多音字并不能完全正确度识别。

 

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧空白知处点击右键，“插入”，“模块”。右侧空白处粘贴道下面的代码。关闭VBA窗口。

代码太长，超字数专*了，请从这里下载：http://pan.baidu.com/s/1bnCn9fD

 

然后在需要的地方输入公式：=PINYIN(单元格地址) 即可。

如下图，属在B1输入：=PINYIN(A1)