Excel2007将汉字转换为拼音首字母

一、打开Excel,按下“Alt+F11”组合键，弹出“Visual Basic编辑器”

二、点击“Visual Basic编辑器”菜单栏的“插入”选项，插入“模块”

三、粘贴代码

Function getpychar(char)tmp = 65536 + Asc(char)If (tmp >= 45217 And tmp <= 45252) Thengetpychar = "A"ElseIf (tmp >= 45253 And tmp <= 45760) Thengetpychar = "B"ElseIf (tmp >= 45761 And tmp <= 46317) Thengetpychar = "C"ElseIf (tmp >= 46318 And tmp <= 46825) Thengetpychar = "D"ElseIf (tmp >= 46826 And tmp <= 47009) Thengetpychar = "E"ElseIf (tmp >= 47010 And tmp <= 47296) Thengetpychar = "F"ElseIf (tmp >= 47297 And tmp <= 47613) Thengetpychar = "G"ElseIf (tmp >= 47614 And tmp <= 48118) Thengetpychar = "H"ElseIf (tmp >= 48119 And tmp <= 49061) Thengetpychar = "J"ElseIf (tmp >= 49062 And tmp <= 49323) Thengetpychar = "K"ElseIf (tmp >= 49324 And tmp <= 49895) Thengetpychar = "L"ElseIf (tmp >= 49896 And tmp <= 50370) Thengetpychar = "M"ElseIf (tmp >= 50371 And tmp <= 50613) Thengetpychar = "N"ElseIf (tmp >= 50614 And tmp <= 50621) Thengetpychar = "O"ElseIf (tmp >= 50622 And tmp <= 50905) Thengetpychar = "P"ElseIf (tmp >= 50906 And tmp <= 51386) Thengetpychar = "Q"ElseIf (tmp >= 51387 And tmp <= 51445) Thengetpychar = "R"ElseIf (tmp >= 51446 And tmp <= 52217) Thengetpychar = "S"ElseIf (tmp >= 52218 And tmp <= 52697) Thengetpychar = "T"ElseIf (tmp >= 52698 And tmp <= 52979) Thengetpychar = "W"ElseIf (tmp >= 52980 And tmp <= 53640) Thengetpychar = "X"ElseIf (tmp >= 53679 And tmp <= 54480) Thengetpychar = "Y"ElseIf (tmp >= 54481 And tmp <= 62289) Thengetpychar = "Z"Else '如果不是中文，则不处理getpychar = charEnd IfEnd Function'逐个取ASC码Function getpy(str)For i = 1 To Len(str)getpy = getpy & getpychar(Mid(str, i, 1))Next iEnd Function

关闭Visual Basic编辑窗口，返回Excel编辑状态

四、选中B2单元格，输入公式"=getpy(a1)",鼠标移到B2单元格右下角，下拉填充公式即可！

转载:
”汉字“转换为”拼音首字母“

Excel2007将汉字转换为拼音首字母相关推荐

php繁体拼音字母,[UTF-8]汉字转换为拼音首字母pinyinFirstChar.fn.php
说明: 一个PHP函数,可以将UTF-8编码的汉字转换为拼音首字母,由GBK的汉字转拼音首字母的函数修改而来.只转换GBK编码内的汉字,标点.字母及GBK内没有的汉字将直接输出不转换. 用法: ech ...
python将汉字转换为拼音首字母
在完成了<学生信息管理系统>后,一天我爸问我,为什么不能用学生姓名拼音首字母搜索,这样会方便不收.我也觉得在理,但是经过我一番搜索资料后,觉得直接在数据库中写函数太过于复杂,不如直接增加一 ...
java汉字转换为拼音首字母
使用 pinyin4j 2.5.0.jar 进行解决.封装了一个工具类 package com.util;import net.sourceforge.pinyin4j.PinyinHelper; i ...
C#将汉字转换为拼音首字母
关于这个话题以前曾经使用过一个简便的算法很长时间, 代码如下: private string ToPinyinSingle(string str) { if ( ...
如何把汉字生成拼音首字母
文章目录使用场景实现方法使用场景希望把一段汉字,转换为拼音首字母,用于搜索等实现方法通过EXCEL的宏实现,打开EXCEL,文件→选项→自定义功能区→勾选开发工具点击开发工具→Visua ...
IOS汉字转拼音首字母
项目中需要给UITableView建右侧索引,需要获取汉字的拼音首字母,而汉字转拼音一般都是使用CFStringTransform方法 - (NSString*)pinyin {if (self == ...
汉字转换拼音首字母(可以处理部分多音字)
一.前言汉字转拼音貌似一直是C#开发的一个难题,无论什么方案都有一定的bug,之前使用了两种方案. 1.Chinese2Spell.cs 一些不能识别的汉字全部转为Z 2.Microsoft Vis ...
C# 汉字转拼音首字母大写
我们在手机上经常都能看到通过拼音缩写来搜索好友信息,那么它是如何将一段汉字转换为首字母大写呢首先我们来了解一下中文在计算机中的结构.计算机识别的是字节,字节(Byte)是计算机信息技术用于计量存储容 ...
在PostgreSQL中实现按拼音、汉字、拼音首字母搜索的例子
在PostgreSQL中实现按拼音.汉字.拼音首字母搜索的例子作者 digoal 日期 2016-11-09 标签 PostgreSQL , 拼音 , 中文分词 , tsvector , 拼音首字母 ...

Excel2007将汉字转换为拼音首字母

Excel2007将汉字转换为拼音首字母

一、打开Excel,按下“Alt+F11”组合键，弹出“Visual Basic编辑器”

二、点击“Visual Basic编辑器”菜单栏的“插入”选项，插入“模块”

三、粘贴代码

四、选中B2单元格，输入公式"=getpy(a1)",鼠标移到B2单元格右下角，下拉填充公式即可！

Excel2007将汉字转换为拼音首字母相关推荐

最新文章

热门文章