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