怎樣在excel中把漢字轉(zhuǎn)換成拼音

軟件版本：Office2013 方法如下： 1.Alt+F11，打開VBA編輯界面，插入模塊，在模塊中輸入如下代碼： Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319 To -20318: pinyin = "a " ……（受字數(shù)，中間部分省略） Ca

excel是一個功能強大并且易于操作的辦公軟件，不管是在工作中還是在學習上，都帶來了很大的便利。那么下面就來介紹如何在excel中把漢字轉(zhuǎn)換成拼音。

材料/工具

excel

方法

首先，打開要轉(zhuǎn)換成拼音的excel表格。

打開Excel->工具->宏->Viaual Basic編輯器 在彈出來的窗口中對著VBAproject點右鍵->插入->模塊 下面會出現(xiàn)一個名為"模塊1"，點擊 在右邊的空白欄中粘貼以下內(nèi)容： Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319

按“Alt+F11”組合鍵，進入Visual Basic編輯狀態(tài)，也就是看到的這個灰色的編輯界面。

1.啟動Excel，打開相應的工作表。 2.執(zhí)行“工具→宏→Visual Basic編輯器”命令（或者直接按“Alt+F11”組合鍵），進入Visual Basic編輯狀態(tài)。 3.執(zhí)行“插入→模塊”命令，插入一個新模塊。再雙擊插入的模塊，進入模塊代碼編輯狀態(tài)。 4.將代碼輸入其中。

執(zhí)行“插入→模塊”命令，插入一個新模塊。再雙擊插入的模塊，進入模塊代碼編輯狀態(tài)。

1、首先選中姓名單元格區(qū)域，點擊右上角的工具箱。 2、然后點擊頁面上方的拼音筆畫。 3、點擊打開列表中的漢字轉(zhuǎn)拼音。 4、接著點擊頁面中間的確定按鈕。 5、選擇將結(jié)果保存的位置點擊確定。 6、最后就可以看到所有的漢字都轉(zhuǎn)換成了拼音。

看到空白界面后，將下面的所有內(nèi)容復制，粘貼到空白處。

Excel如何把漢字轉(zhuǎn)換成拼音 1 2 3 4 5 6 7 我們在工作中有時候會用到Excel做表格，excel錄入中文，不能自動轉(zhuǎn)換成拼音，那么怎么樣可以快速的把漢字轉(zhuǎn)換成拼音呢？下面跟我來簡單的操作一下。 百度經(jīng)驗:jingyan.baidu.com 工具/原料 Excel 2007

按下ALT+Q關(guān)閉Visual Basic編輯窗口，返回Excel編輯狀態(tài)。

可以但用起來很復雜累人，也不可能在這里說明白，只在這里說的一下簡單的無理，以其中一種方法為例。 利用VLOOKUP這類的函數(shù)，在次列把本列單元格內(nèi)拼音轉(zhuǎn)換成漢字。 首先別設一張引用源數(shù)據(jù)表，A列是拼間 B列為漢字 通函數(shù)依引用源數(shù)據(jù)表A列為

選中轉(zhuǎn)換后的拼音需要放在哪個列，例如要把B列的第2行的內(nèi)容轉(zhuǎn)換成拼音，放在D列的第2個單元格，輸入公式：=getpy(B2)，這里的B2，是指源頭單元格的坐標。

Excel內(nèi)是可以把中文轉(zhuǎn)換成為拼音的，但需要轉(zhuǎn)換函數(shù)（函數(shù)可通過網(wǎng)絡上面下載），下面給出具體操作方法： 所需材料：Excel、準備好的中文轉(zhuǎn)拼音函數(shù)。 一、首先打開Excel軟件，然后按Alt+F11打開Viaual Basic編輯器，點擊工具欄“插入”，選項內(nèi)

如果要去除拼音之間的空格。去掉空格的拼音放在E列，如果這個未去掉空格的數(shù)據(jù)原來在D2單元格，去掉空格之后的拼音放在E2單元格，則在E2單元格輸入： =SUBSTITUTE(D2," ","")，然后就轉(zhuǎn)換完成了。

打開Excel->工具->宏->Viaual Basic編輯器 在彈出來的窗口中對著VBAproject點右鍵->插入->模塊 下面會出現(xiàn)一個名為"模塊1"，點擊 在右邊的空白欄中粘貼以下內(nèi)容： Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319

擴展閱讀，以下內(nèi)容您可能還感興趣。

如何將EXCEL表格中的漢字轉(zhuǎn)為拼音

啟動Excel （其它版本請仿照操作），打開相應的工作表；

2.執(zhí)行“工具→宏→Visual Basic編輯器”命令（或者直接e79fa5e98193e78988e69d8331333339663966按“Alt+F11”組合鍵），進入Visual Basic編輯狀態(tài)；

執(zhí)行“插入→模塊”命令，插入一個新模塊。再雙擊插入的模塊，進入模塊代碼編輯狀態(tài)；

將代碼輸入其中:

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.代碼輸入完成后，直接關(guān)閉Visual Basic編輯窗口，返回Excel編輯狀態(tài)；

6.定義函數(shù)就可以用了，如：選中A2單元格，輸入公式：=getpy(A2)。

excel 如何把”漢字“轉(zhuǎn)換為”拼音首字母“，切記為”拼音首字母“！?。?！????

以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

然后關(guān)閉Visual Basic編輯窗口，返回Excel編輯狀態(tài)。分別如下圖：

4、選中B2單元格，輸入公式"=getpy(a1)",鼠標移到B2單元格右下角，下拉填充公式即可，如下圖：

如何將EXCEL表格中的漢字轉(zhuǎn)為拼音

在word 和EXCEL中，都可以：

選中內(nèi)容----格式---拼音指百南

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

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

--------這是在word中形成的，權(quán)但，在word 和EXCEL中，拼音在字的上面。

如何在EXCEL2016中將中文姓名顯示為拼音

按步驟來：

1，按組合鍵ALT+F11調(diào)出VB窗口——制插入——模塊（復制代碼zd到新模塊中，復制完后始可關(guān)閉VB窗口。代碼私信提供給你）

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

這樣可以區(qū)分嗎？

另外，姓和名的首字母分別大寫怎么弄？ 司馬相如：Sima Xiangru

2010版excel中如何將輸入的漢字轉(zhuǎn)換成拼音

親，這個可以用VBA編寫自定百義函數(shù)解決。但是對于生僻字和多音字并不能完全正確度識別。

打開你的Excel文件，按“Alt+F11”打開VBA編輯窗口，然后在左側(cè)空白知處點擊右鍵，“插入”，“模塊”。右側(cè)空白處粘貼道下面的代碼。關(guān)閉VBA窗口。

代碼太長，超字數(shù)專*了，請從這里下載：http://pan.baidu.com/s/1bnCn9fD

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

如下圖，屬在B1輸入：=PINYIN(A1)

聲明：本網(wǎng)頁內(nèi)容旨在傳播知識，若有侵權(quán)等問題請及時與本網(wǎng)聯(lián)系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com