怎樣在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)