今天小風給大家收集了一些excel在漢字中提取漢字函數(shù)，Excel中如何用函數(shù)實現(xiàn)提取漢字的首字母方面的信息來分享給大家，如果大家感興趣的話就接著看下面得文章吧

有一些場合，要用到漢字的首字母縮寫，而Excel中并沒有這樣一個函數(shù)，可以直接提取漢字的首字母。不過拓展性極強大的VBA給提供了無限的可能。今天就在這里介紹一下，如何用自定義函數(shù)，來實現(xiàn)提取漢字首字母的功能。材料/工具excel方法

1、在電腦中打開要編輯的excel文檔

2、按下Alt+F1、1、鍵，打開VBE界面，如下圖所示。在VBE界面中，單擊圖片中所示的左上角空白處，選擇“插入“，”模塊“

3、此時，就插入了一個模塊，后面的代碼就要放到這個模塊中，保證右側空白區(qū)域是模塊代碼的編輯區(qū)（最保險的做法是雙擊模塊），然后執(zhí)行下一步操作。

4、將下面的代碼全部復制粘貼到空白區(qū)域。Function pinyin(p As String) As Stringi = Asc(p)Select Case iCase -2、03、1、9、 To -2、02、8、4、: pinyin ="A"Case -2、02、8、3、 To -1、9、7、7、6、: pinyin ="B"Case -1、9、7、7、5、 To -1、9、2、1、9、: pinyin ="C"Case -1、9、2、1、8、 To -1、8、7、1、1、: pinyin ="D"Case -1、8、7、1、0 To -1、8、5、2、7、: pinyin ="E"Case -1、8、5、2、6、 To -1、8、2、4、0: pinyin ="F"Case -1、8、2、3、9、 To -1、7、9、2、3、: pinyin ="G"Case -1、7、9、2、2、 To -1、7、4、1、8、: pinyin ="H"Case -1、7、4、1、7、 To -1、6、4、7、5、: pinyin ="J"Case -1、6、4、7、4、 To -1、6、2、1、3、: pinyin ="K"Case -1、6、2、1、2、 To -1、5、6、4、1、: pinyin ="L"Case -1、5、6、4、0 To -1、5、1、6、6、: pinyin ="M"Case -1、5、1、6、5、 To -1、4、9、2、3、: pinyin ="N"Case -1、4、9、2、2、 To -1、4、9、1、5、: pinyin ="O"Case -1、4、9、1、4、 To -1、4、6、3、1、: pinyin ="P"Case -1、4、6、3、0 To -1、4、1、5、0: pinyin ="Q"Case -1、4、1、4、9、 To -1、4、09、1、: pinyin ="R"Case -1、4、09、0 To -1、3、3、1、9、: pinyin ="S"Case -1、3、3、1、8、 To -1、2、8、3、9、: pinyin ="T"Case -1、2、8、3、8、 To -1、2、5、5、7、: pinyin ="W"Case -1、2、5、5、6、 To -1、1、8、4、8、: pinyin ="X"Case -1、1、8、4、7、 To -1、1、05、6、: pinyin ="Y"Case -1、1、05、5、 To -2、05、0: pinyin ="Z"Case Else: pinyin = pEnd SelectEnd FunctionFunction getpy(str)For i = 1、 To Len(str)getpy = getpy & pinyin(Mid(str, i, 1、))Next iEnd Function

5、然后關閉這個新界面，返回Excel，就可以像Excel自帶的函數(shù)一樣使用這個自定義的Getpy函數(shù)了，它只有一個參數(shù)，參數(shù)可以直接指定單元格，也可以直接輸入字符。

6、需要注意的是，Getpy函數(shù)，只返回漢字拼音的首字母，如果是其他的字母或者數(shù)據等非漢字文本，會返回原來的值，如圖所示

本文到此結束，希望對大家有所幫助。

版權說明：本文由用戶上傳，如有侵權請聯(lián)系刪除！

標簽：