EXCEL如何提取汉字首字母.docxVIP

EXCEL如何提取汉字首字母 EXCEL如何提取汉字首字母 PAGE EXCEL如何提取汉字首字母 方法/步骤 首先，打开Excel，同时按下Alt+F11键，打开VBE界面，如下图所示。在VBE界面中，单击图片中所示的左上角空白处，选择“插入“，”模块“。 此时，就插入了一个模块，后面的代码就要放到这个模块中，保证右侧空白区域是模块代码的编辑区（最保险的做法是双击模块），然后执行下一步操作。 将下面的代码全部复制粘贴到空白区域。 Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319 To -20284: pinyin = A Case -20283 To -19776: pinyin = B Case -19775 To -19219: pinyin = C Case -19218 To -18711: pinyin = D Case -18710 To -18527: pinyin = E Case -18526 To -18240: pinyin = F Case -18239 To -17923: pinyin = G Case -17922 To -17418: pinyin = H Case -17417 To -16475: pinyin = J Case -16474