excel中实现提取汉字的拼音首字母
excel提取汉字的拼音首字母
excel提取汉字的拼音首字母按ALT＋F11，插入模块，在右面窗口中粘贴下面代码在某空白格中输入：=pyzm(A1) 即可Function pyzm(hzpy As String) As StringDim hzstring As String, pystring As StringDim hzpysum As Integer, hzi As Integer, hzpyhex As Integer hzstring = Trim(hzpy)hzpysum = Len(Trim(hzstring))pystring = ""For hzi = 1 To hzpysumhzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))Select Case hzpyhexCase &HB0A1 To &HB0C4: pystring = pystring + "A"Case &HB0C5 To &HB2C0: pystring = pystring + "B"Case &HB2C1 To &HB4ED: pystring = pystring + "C"Case &HB4EE To &HB6E9: pystring = pystring + "D"Case &HB6EA To &HB7A1: pystring = pystring + "E"Case &HB7A2 To &HB8C0: pystring = pystring + "F"Case &HB8C1 To &HB9FD: pystring = pystring + "G"Case &HB9FE To &HBBF6: pystring = pystring + "H"Case &HBBF7 To &HBFA5: pystring = pystring + "J"Case &HBFA6 To &HC0AB: pystring = pystring + "K"Case &HC0AC To &HC2E7: pystring = pystring + "L"Case &HC2E8 To &HC4C2: pystring = pystring + "M"Case &HC4C3 To &HC5B5: pystring = pystring + "N"Case &HC5B6 To &HC5BD: pystring = pystring + "O"Case &HC5BE To &HC6D9: pystring = pystring + "P"Case &HC6DA To &HC8BA: pystring = pystring + "Q"Case &HC8BB To &HC8F5: pystring = pystring + "R"Case &HC8F6 To &HCBF9: pystring = pystring + "S"Case &HCBFA To &HCDD9: pystring = pystring + "T"Case &HEDC5: pystring = pystring + "T"Case &HCDDA To &HCEF3: pystring = pystring + "W"Case &HCEF4 To &HD1B8: pystring = pystring + "X"Case &HD1B9 To &HD4D0: pystring = pystring + "Y"Case &HD4D1 To &HD7F9: pystring = pystring + "Z"Case Elsepystring = pystring + Mid(hzstring, hzi, 1)End SelectNextpyzm = pystringEnd Function。
excel：汉字拼音首字母提取
方法一：VBA自定义函数"=hztopy（）"下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入下述代码，（按ALT＋F11，插入模块，在右面窗口中粘贴下面代码）那么，比如在A3中有"进退两难"，则在B3中输入"=hztopy（A3）"，则会得到"JTLN"。
不过此法有时候也会出错，比如"皓、鑫、婷、雯、奕"等，就无法提取汉字拼音首字母。
Function hztopy(hzpy As String) As StringDim hzstring As String, pystring As StringDim hzpysum As Integer, hzi As Integer, hzpyhex As Integerhzstring = Trim(hzpy)hzpysum = Len(Trim(hzstring))pystring = ""For hzi = 1 To hzpysumhzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))Select Case hzpyhexCase &HB0A1 To &HB0C4: pystring = pystring + "A"Case &HB0C5 To &HB2C0: pystring = pystring + "B"Case &HB2C1 To &HB4ED: pystring = pystring + "C"Case &HB4EE To &HB6E9: pystring = pystring + "D"Case &HB6EA To &HB7A1: pystring = pystring + "E"Case &HB7A2 To &HB8C0: pystring = pystring + "F"Case &HB8C1 To &HB9FD: pystring = pystring + "G"Case &HB9FE To &HBBF6: pystring = pystring + "H"Case &HBBF7 To &HBFA5: pystring = pystring + "J"Case &HBFA6 To &HC0AB: pystring = pystring + "K"Case &HC0AC To &HC2E7: pystring = pystring + "L"Case &HC2E8 To &HC4C2: pystring = pystring + "M"Case &HC4C3 To &HC5B5: pystring = pystring + "N"Case &HC5B6 To &HC5BD: pystring = pystring + "O"Case &HC5BE To &HC6D9: pystring = pystring + "P"Case &HC6DA To &HC8BA: pystring = pystring + "Q"Case &HC8BB To &HC8F5: pystring = pystring + "R"Case &HC8F6 To &HCBF9: pystring = pystring + "S"Case &HCBFA To &HCDD9: pystring = pystring + "T"Case &HEDC5: pystring = pystring + "T"Case &HCDDA To &HCEF3: pystring = pystring + "W"Case &HCEF4 To &HD1B8: pystring = pystring + "X"Case &HD1B9 To &HD4D0: pystring = pystring + "Y"Case &HD4D1 To &HD7F9: pystring = pystring + "Z"Case Elsepystring = pystring + Mid(hzstring, hzi, 1)End SelectNexthztopy = pystringEnd Function方法二：VBA自定义函数"=getpy()"下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入上述代码，那么。
使用Excel快速获取姓名拼音
使用E x c e l快速获取姓名拼音The final edition was revised on December 14th, 2020.使用Excel快速获取姓名拼音召开会议或进行系统成员管理时，可能会需要批量获取姓名的汉语拼音，使用以下方法可以一劳永逸：1、新建一电子表格文件，内含两张表，一张命名为“转译”，一张命名为“资料”。
2、将以下内容粘至资料表的A1单元格（将会布满资料表的A1:B23单元格。
如果不好用鼠标选择，可将鼠标点在第一汉字前，按住Shift+向下键直到选完，然后按Ctrl+C复制，粘贴时右击鼠标后选择弹出的粘贴菜单的右侧那个去掉格式的按钮粘贴）吖 A八 B擦 C耷 D婀 E发 F噶G哈H肌J喀K垃L妈M拿N啪P期Q然R撒S塌T挖W西X压Y匝Z3、将以下资料粘至资料表的D1单元格（将会布满资料表的D1:E400单元格）吖 a安an肮ang凹ao八ba掰bai班ban邦bang包bao杯bei奔ben伻beng边bian 标biao 瘪bie 邠bin 冰bing 拨bo钸bu擦ca偲cai 参can 仓cang 糙cao 册ce参cen 噌ceng 叉cha 拆chai 觇chan 伥chang 抄chao 车che 抻chen 柽cheng充chong 抽chou 出chu欻chua 揣chuai 川chuan 窗chuang 吹chui 春chun 逴chuo 刺ci匆cong 凑cou粗cu汆cuan 崔cui村cun搓cuo咑da呆dai丹dan当dang 刀dao扽den 灯deng 氐di 嗲dia 掂dian 刁diao 爹die 丁ding 丢diu 东dong 兜dou 阇du 端duan 堆dui 吨dun 多duo 屙 e欸ei 奀en 鞥eng 儿er 发fa 帆fan飞fei 分fen 丰feng 佛fo缶fou 夫fu旮ga该gai 干gan 冈gang 皋gao 戈ge给gei 根gen 更geng 工gong 勾gou 估gu瓜gua 乖guai 关guan 光guang 归gui郭guo 哈ha孩hai 顸han 夯hang 蒿hao 呵he黑hei 痕hen 亨heng 轰hong 齁hou 乎hu花hua 怀huai 欢huan 肓huang 灰hui 昏hun 豁huo 几ji加jia 戋jian交jiao 节jie 巾jin 茎jing 垧jiong 纠jiu 居ju捐juan 撅jue 军jun 咔ka开kai 刊kan 康kang 尻kao 坷ke肯ken 阬keng 空kong 抠kou 刳ku夸kua 蒯kuai匡kuang 亏kui 坤kun 扩kuo 垃la来lai 兰lan 啷lang 捞lao 乐le勒lei 棱leng 黎li边lian 良liang 撩liao 咧lie 拎lin 令ling 溜liu 龙long 搂lou 撸lu抡lun 罗luo 驴lv 掠lve 妈ma 埋mai 嫚man 牤mang 猫mao 么me 没mei 闷men 蒙meng 咪mi 眠mian 喵miao 民min 名ming 谬miu 摸mo 哞mou 毪mu 那na囡nan 囊nang 孬nao 哪ne哪nei 恁nen 能neng 妮ni拈nian 酿niang 鸟niao 捏nie 您nin 宁ning 妞niu 农nong 耨nou 奴nu暖nuan 挪nuo 女nv疟nve 区ou拍pai 潘pan 乓pang 抛pao 呸pei 喷pen 烹peng 丕pi片pian 票piao 氕pie 拚pin 乒ping 钋po剖pou 仆pu七qi掐qia 千qian 强qiang 悄qiao 切qie 钦qin銎qiong 丘qiu 区qu悛quan 炔que 囷qun 蚺ran 嚷rang 饶rao 若re人ren 扔reng 日ri戎rong 柔rou 如ru阮ruan 蕤rui 闰run 若ruo 撒sa腮sai 三san搔sao色se森sen僧seng 杀sha筛shai 山shan 伤shang 捎shao 奢she申shen 升sheng 尸shi收shou 书shu刷shua 衰shuai 闩shuan 双shuang 谁shui 吮shun 说shuo 司si叟sou 苏su 狻suan 尿sui 孙sun 莎suo 他ta 台tai 坍tan 汤tang 涛tao 忑te 疼teng 体ti 天tian 佻tiao 帖tie 厅ting 恫tong 偷tou 凸tu 湍tuan 忒tui托tuo 挖wa歪wai 弯wan 汪wang 危wei 温wen 翁weng 挝wo乌wu夕xi虾xia 仙xian 乡xiang 肖xiao 些xie 心xin 兴xing 凶xiong 休xiu 需xu轩xuan 削xue丫ya 咽yan 央yang 幺yao 耶ye 一yi 因yin 应ying 庸yong 优you 迂yu 鸢yuan 曰yue 晕yun 扎za 灾zai 簪zan 赃zang 遭zao 则ze 贼zei 怎zen 曾zeng沾zhan 张zhang 钊zhao 折zhe这zhei 贞zhen 争zheng 之zhi中zhong 州zhou 朱zhu抓zhua 拽zhuai 专zhuan 庄zhuang 隹zhui 屯zhun 拙zhuo 孖zi宗zong 邹zou苴zu尊zun作zuo4、在将以下内容分别粘进转译表的A1～C1单元格中：姓名（2～4汉字，无空格）简拼全拼5、将以下公式粘进转译表的B2单元格并回车，以获得得姓名的简拼，注意不要多复制：=IF(LEN(A2)=2,LOOKUP(LEFT(A2,1),资料!$A$1:$B$23)&LOOKUP(RIGHT(A2,1),资料!$A$1:$B$23),IF(LEN(A2)=3,LOOKUP(LEFT(A2,1),资料!$A$1:$B$23)&LOOKUP(MID(A2,2,1),资料!$A$1:$B$23)&LOOKUP(RIGHT(A2,1),资料!$A$1:$B$23),IF(LEN(A2)=4,LOOKUP(LEFT(A2,1),资料!$A$1:$B$23)&LOOKUP(MID(A2,2,1),资料!$A$1:$B$23)&LOOKUP(MID(A2,3,1),资料!$A$1:$B$23)&LOOKUP(RIGHT(A2,1),资料!$A$1:$B$23),"请查检查姓名")))6、将以下公式粘进转译表的C2单元格并回车，以获得姓名的全拼：=IF(LEN(A2)=2,PROPER(LOOKUP(LEFT(A2,1),资料!$D$1:$E$400))&PROPER(LOOKUP(RIGHT(A2,1),资料!$D$1:$E$400)),IF(LEN(A2)=3,PROPER(LOOKUP(LEFT(A2,1),资料!$D$1:$E$400))&PROPER(LOOKUP(MID(A2,2,1),资料!$D$1:$E$400)),IF(LEN(A2)=4,PROPER(LOOKUP(LEFT(A2,1),资料!$D$1:$E$400))&PROPER(LOOKUP(MID(A2,2,1),资料!$D$1:$E$400))&PROPER(LOOKUP(MID(A2,3,1),资料!$D$1:$E$400))&PROPER(LOOKUP(RIGHT(A2,1),资料!$D$1:$E$400)),"请查检查姓名")))7、现在可以在A2开始的A列中输入汉字姓名了，最后根据需要向下填充公式即可。
excel获得汉字首字母的方法
在日常工作和学习中，我们经常需要对文本进行处理和分析，尤其是对于中文文本。
在处理中文文本时，有时会遇到需要将汉字转换为拼音的需求。
而在Excel中，获得汉字的首字母则成为了一个常见的需求。
那么，如何在Excel中获得汉字的首字母呢？我们可以利用Excel内置的函数来实现这一目标。
在Excel中，可以使用VB脚本编写一个自定义函数来获取汉字的首字母。
具体步骤如下：1. 打开Excel表格，按下ALT + F11，打开VB编辑器。
2. 在VB编辑器中，插入一个新模块。
3. 在新模块中输入以下VB脚本代码：```vbFunction GetFirstLetter(str As String) As StringDim pinyin As StringDim i As IntegerDim ch As Stringpinyin = ""For i = 1 To Len(str)ch = Mid(str, i, 1)pinyin = pinyin &Left(Application.WorksheetFunction.Phonetic(ch), 1)Next iGetFirstLetter = pinyinEnd Function```4. 编译保存后，返回Excel表格界面。
5. 在需要获取汉字首字母的单元格中输入`=GetFirstLetter(A1)`，其中A1为需要转换的汉字所在的单元格。
6. 按下Enter键，即可在目标单元格中获取到相应汉字的首字母。
通过上述方法，我们可以轻松地在Excel中获得汉字的首字母，而且可以将这个函数在多个单元格中批量应用，提高工作效率。
除了使用VB脚本自定义函数外，我们还可以借助Excel内置的函数来实现汉字首字母的获取。
在Excel中，有一个叫做UNICODE的函数，可以返回指定字符的Unicode编码。
而对于汉字来说，其首字母的Unicode编码可以作为其拼音的首字母。
excel汉字首字母提取公式
excel汉字首字母提取公式Excel是一种非常常用的办公软件，广泛应用于各个领域。
在Excel 中，我们经常需要对大量数据进行处理和分析。
其中一个常见的需求就是根据汉字的首字母进行提取。
下面我们将详细介绍如何使用Excel公式来实现这一功能。
我们需要明确一点，Excel并没有直接提供提取汉字首字母的函数。
但是我们可以通过一系列的公式和函数来实现这个功能。
下面我们将一步步来进行介绍。
我们需要创建一个用于存放汉字的单元格，假设我们将汉字存放在A1单元格中。
然后，在B1单元格中输入以下公式：=IF(CODE(MID($A$1,ROW(A1),1))>=19968,UPPER(LEFT(MID($A$1,ROW(A1),1),1)),"")这个公式的作用是判断A1单元格中的字符是否为汉字，如果是汉字，则提取其首字母并转为大写，否则为空。
然后，我们需要拖动B1单元格的填充柄，将公式复制到B2、B3、B4等单元格中，直到所有的汉字都被处理完毕。
这样，我们就得到了汉字的首字母。
接下来，我们可以通过排序等操作来对提取出的首字母进行进一步的处理和分析。
例如，我们可以按照首字母进行分组统计，或者按照首字母进行筛选等。
除了上述的方法，还有其他一些实现提取汉字首字母的方法。
例如，可以使用VBA宏来实现。
通过编写一段简单的VBA代码，我们可以实现更加灵活和高效的汉字首字母提取功能。
总结起来，通过Excel公式和函数，我们可以实现汉字首字母的提取功能。
虽然Excel本身并没有直接提供相应的函数，但是我们可以通过一系列的公式和函数来实现这一功能。
这对于需要对大量汉字数据进行处理和分析的用户来说，无疑是非常有用的。
希望本文的介绍对大家有所帮助。
Excel怎么快速提取中文的首字母呢？
Excel怎么快速提取中⽂的⾸字母呢？右键单击Sheet1⼯作表，选中右键菜单中的查看代码。
Function Getpychar(char)temp = 65536 + Asc(char)If (temp >= 45217And temp <= 45252) ThenGetpychar = "A"ElseIf (temp >= 45253And temp <= 45760) ThenGetpychar = "B"ElseIf (temp >= 45761And temp <= 46317) ThenGetpychar = "C"ElseIf (temp >= 46318And temp <= 46825) ThenGetpychar = "D"ElseIf (temp >= 46826And temp <= 47009) ThenGetpychar = "E"ElseIf (temp >= 47010And temp <= 47296) ThenGetpychar = "F"ElseIf (temp >= 47297And temp <= 47613) ThenGetpychar = "G"ElseIf (temp >= 47614And temp <= 48118) ThenGetpychar = "H"ElseIf (temp >= 48119And temp <= 49061) ThenGetpychar = "J"ElseIf (temp >= 49062And temp <= 49323) ThenGetpychar = "K"ElseIf (temp >= 49324And temp <= 49895) ThenGetpychar = "L"ElseIf (temp >= 49896And temp <= 50370) ThenGetpychar = "M"ElseIf (temp >= 50371And temp <= 50613) ThenGetpychar = "N"ElseIf (temp >= 50614And temp <= 50621) ThenGetpychar = "O"ElseIf (temp >= 50622And temp <= 50905) ThenGetpychar = "P"ElseIf (temp >= 50906And temp <= 51386) ThenGetpychar = "Q"ElseIf (temp >= 51387And temp <= 51445) ThenGetpychar = "R"ElseIf (temp >= 51446And temp <= 52217) ThenGetpychar = "S"ElseIf (temp >= 52218And temp <= 52697) Then Getpychar = "T"ElseIf (temp >= 52698And temp <= 52979) Then Getpychar = "W"ElseIf (temp >= 52980And temp <= 53640) Then Getpychar = "X"ElseIf (temp >= 53689And temp <= 54480) Then Getpychar = "Y"ElseIf (temp >= 54481And temp <= 62289) Then Getpychar = "Z"ElseGetpychar = charEnd IfEnd FunctionFunction Getpy(str)For a = 1To Len(str)Getpy = Getpy & Getpychar(Mid(str, a, 1))Next aEnd Function函数⽤法。
Excel-VBA自定义函数取姓名的汉语拼音首字母
Excel-VBA自定义函数取姓名的汉语拼音首字母应用场景用函数取汉语拼音的首字母知识要点1：Option Compare语句，设置缺省的字符比较方法，只能在模块级使用，语法Option Compare {Binary | Text | Database} Option Compare Binary ,按排序顺序进行字符串比较A<B<C<a<b<?等，Option Compare text 不区分大小写进行字符串比较A=a2：将所有拼音首字母相同的第一个汉字取出来组成一个字符串，例如拉、洛、梁等，拉=la最靠前，取拉3：将参数中的每个字符与参照字符串中每个比较，统计参照字符串中有多少字符小于参数中的字符，如果有10个，通过chr函数，转换成第9个英文字符J，非汉字保持不变Option Compare Text '比较方式为text'声明函数PY，有一个必选参数，为特引用的单元格或者字符串Function PY(Rng As Range)Application.Volatile '声明为易失性函数Dim i As Integer, k As Integer, Str As StringIf Len(Rng) = 0 Then PY = '': Exit Function '如果引用单元格空白，则返回空文本If Not IsNumeric(Rng) Then '如果不是数值Str = WorksheetFunction.Trim(Rng) '去除空格格后，赋予变量strFor i = 1 To Len(Str) '遍历所有字符If Mid(Str, i, 1) < '啊' Then '如果小于啊，表示不是汉字PY = PY & Mid(Str, i, 1) '保留原字符不变Elsek = 1'将字符串中每个字符与参数中的字符进行比较，统计字符串中大于参数中的字符的个数，得到变量 kDo Until Mid$('八嚓哒妸发旮铪讥讥咔垃妈拿哦妑七然仨他哇哇哇夕丫匝咗', k, 1) > Mid$(Str, i, 1)k = k 1LoopPY = PY & Chr(64 k) '根据K值得到大写的英文字母(chr(65)为第一个字母AEnd IfNextEnd IfEnd Function。
excel_汉字转换成拼音简拼(只取首字母)
excel_汉字转换成拼音简拼(只取首字母)名称转换为首字母(VBA自定义函数)1，打开EXCEL2，按ALT+F11，单击插入-插入模块，在右窗口粘贴以下代码，直接关闭窗口3，输入公式=hztopy(A1)，填充所有单元格4，选择所有缩写，复制-粘贴特殊值(因为它是自定义函数，只有结果可以显示在当前文件中，而其他计算机显示错误是因为5.使用条件格式检索包含中文字符的单元格:首先单击一个单元格(设置为D5)。
条件格式-新格式规则-使用公式确定要格式化的单元格:在下面的对话框中输入公式= LEMB(D5)> LEN(D5)，自己设置格式，确认后退出，然后用单元格的格式刷所有单元格汉字外观的格式设置为6。
选择自定义排序-按“单元格颜色”排序-排序“无单元格颜色”和“底部”-确定7，手动将汉字改写成相应的字母8、检查复音字符注意:上述方法只能在当前文件夹中使用。
如何保存宏以便自定义函数可以在所有文件夹中使用？1.创建新的EXCEL2。
按ALT+F11，单击插入-插入模块，并在右侧窗口中粘贴以下代码。
直接关闭窗口3，另存为-其他格式-文件名更改为宏名，保存类型选择” EXCEL加载项(*，xlam)”，文件将自动保存在c: \ \用户\ \ 111 \ \ appdata \ \ road ing \ \ Microsoft \ \ addins文件夹中4.打开需要工作的EXL，然后单击开始-扩展选项-加载项-转到(G)...-选择上面保存的宏名-确定这样，在这台计算机的所有EXCEL中，可以直接使用自定义公式。
代码(只复制星号的内容)* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *函数Hz topy(hzpy As String)As String Dim hzstring As String，py String As StringDim hzpy sum As Integer，hzi As Integer，hzpyhex As Integer hzstring = Trim(hzpy)hzpy sum = Len(Trim(hzstring))py String = \For hzi = 1 To hzpy sumhzpyhex = \ Select Case hzpyhexCase & HB 案例&HB2C1至&HB4ED: pystring = pystring + \案例&HB4EE至&HB6E9: pystring = pystring + \案例&HB6EA至&HB7A1: pystring = pystring + \案例&HB7A2至&HB8C0: pystring = pystring + \案例&HB8C1至&HB9FD: pystring = pystring + \案例&HB9FE至&HBBF6: pystring = pystring + \案例&HBBF7至&HBFA5: pystring = pystring 案例&HC2E8至&HC4C2: pystring = pystring + \案例&HC4C3至&HC5B5: pystring = pystring + \案例&HC5B6至&HC5BD:pystring = pystring + \案例&HC5BE至&HC6D9: pystring = pystring + \案例&HC6DA至&HC8BA: pystring = pystring + \案例&HC8BB至&HC8F5: pystring = pystring + \案例&HC8F6至&HCBF9: pystring = pystringCase & HCDDA To & HCEF3:py string = py string+\ Case & HCEF4 To & HD1B 8:py string = py string+\ Case & HD1B 9 To & HD4D 0:py string = py string+\ Case & HD4D 1 To & HD7F 9:py string = py string+\ Case Elsepy string = py string+Mid(Hz string，hzi，1)结束选择下一个hztopy = pystring结束。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
在EXECL中，按ALT+F11，插入---模块复制下列代码：
Function hztopy(hzpy As String) As String
Dim hzstring As String, pystring As String
Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer
hzstring = Trim(hzpy)
hzpysum = Len(Trim(hzstring))
pystring = ""
For hzi = 1 To hzpysum
hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))
Select Case hzpyhex
Case &HB0A1 To &HB0C4: pystring = pystring + "A"
Case &HB0C5 To &HB2C0: pystring = pystring + "B"
Case &HB2C1 To &HB4ED: pystring = pystring + "C"
Case &HB4EE To &HB6E9: pystring = pystring + "D"
Case &HB6EA To &HB7A1: pystring = pystring + "E"
Case &HB7A2 To &HB8C0: pystring = pystring + "F"
Case &HB8C1 To &HB9FD: pystring = pystring + "G"
Case &HB9FE To &HBBF6: pystring = pystring + "H"
Case &HBBF7 To &HBFA5: pystring = pystring + "J"
Case &HBFA6 To &HC0AB: pystring = pystring + "K"
Case &HC0AC To &HC2E7: pystring = pystring + "L"
Case &HC2E8 To &HC4C2: pystring = pystring + "M"
Case &HC4C3 To &HC5B5: pystring = pystring + "N"
Case &HC5B6 To &HC5BD: pystring = pystring + "O"
Case &HC5BE To &HC6D9: pystring = pystring + "P"
Case &HC6DA To &HC8BA: pystring = pystring + "Q"
Case &HC8BB To &HC8F5: pystring = pystring + "R"
Case &HC8F6 To &HCBF9: pystring = pystring + "S"
Case &HCBFA To &HCDD9: pystring = pystring + "T"
Case &HEDC5: pystring = pystring + "T"
Case &HCDDA To &HCEF3: pystring = pystring + "W"
Case &HCEF4 To &HD1B8: pystring = pystring + "X"
Case &HD1B9 To &HD4D0: pystring = pystring + "Y"
Case &HD4D1 To &HD7F9: pystring = pystring + "Z"
Case Else
pystring = pystring + Mid(hzstring, hzi, 1)
End Select
Next
hztopy = pystring
End Function
比如在A1输入小燕子耳坠子7.8 则在其他空白单元格输入=hztopy(A1) 回车执行即可。