45IT.COM- 電腦學習從此開始!
DIY硬件教程攢機經驗裝機配置
設計Photoshop網頁設計特效
系統注冊表DOS系統命令其它
存儲主板顯卡外設鍵鼠內存
維修顯卡CPU內存打印機
WinXPVistaWin7unix/linux
CPU光驅電源/散熱顯示器其它
修技主板硬盤鍵鼠顯示器光驅
辦公ExcelWordPowerPointWPS
編程數據庫CSS腳本PHP
網絡局域網QQ服務器
軟件網絡系統圖像安全

怎樣在Excel中將漢字姓名轉換成首字母

電腦軟硬件應用網 45IT.COM 時間:2019-10-03 15:38 作者:佚名

在Excel中經常會涉及到很多的名單表格,想把姓名轉換成拼音首字母,這又有什么技巧的呢?

今天小編就為大家分享這篇教程,希望對大家有所幫助。

怎樣在Excel中將漢字姓名轉換成首字母

 

1、導入一張含有姓名的表格,把姓名放到A列中,在B列中將要導出拼音。

怎樣在Excel中將漢字姓名轉換成首字母

 

2、現在我們按住Alt+F11,打開VB編輯窗口,單擊插入——模塊,彈出代碼編輯框。

怎樣在Excel中將漢字姓名轉換成首字母

 

3、在代碼編輯框中輸入:

Option Explicit

Function PY(TT As String) As Variant

Dim i%, temp$

PY = ""

For i = 1 To Len(TT)

temp = Asc(Mid$(TT, i, 1))

If temp > 255 Or temp < 0 Then

PY = PY & pinyin(Mid$(TT, i, 1))

Else

PY = PY & LCase(Mid$(TT, i, 1))

End If

Next i

End Function

Function pinyin(myStr As String) As Variant

On Error Resume Next

myStr = StrConv(myStr, vbNarrow)

If Asc(myStr) > 0 Or Err.Number = 1004 Then pinyin = ""

pinyin = Application.WorksheetFunction.VLookup(myStr, [{"吖","A";"八","B";"嚓","C";"搭","D";"蛾","E";"發","F";"噶","G";"鉿","H";"擊","J";"咔","K";"垃","L";"媽","M";"拿","N";"噢","O";"啪","P";"七","Q";"然","R";"仨","S";"他","T";"挖","W";"夕","X";"壓","Y";"座","Z"}], 2)

End Function

關閉VB窗口。

怎樣在Excel中將漢字姓名轉換成首字母

 

4、現在轉到工作表中,我們在B2中輸入=PY(A2),回車我們就看到姓名的拼音首字母顯示出來了。

怎樣在Excel中將漢字姓名轉換成首字母

 

怎樣在Excel中將漢字姓名轉換成首字母

 

5、我們用填充手柄把B列中的單元格全部填滿,這時候我們要的效果就出現了。

怎樣在Excel中將漢字姓名轉換成首字母
頂一下
(0)
0%
踩一下
(0)
0%
------分隔線----------------------------
發表評論
請自覺遵守互聯網相關的政策法規,嚴禁發布色情、暴力、反動的言論。
評價:
表情:
驗證碼:點擊我更換圖片
推薦知識
法甲球队有哪些