excel 获取中文首字母缩写

1.设置【开发工具】菜单

【文件】->【选项】->【自定义功能区】->【主选项卡】->勾选【开发工具】

点击确定以后，导航菜单里增加一项【开发工具】

2.自定义函数

打开【开发工具】菜单，点击第一个【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 If
End Function
'逐个取ASC码
Function getpy(str)For i = 1 To Len(str)getpy = getpy & getpychar(Mid(str, i, 1))Next i
End Function

3.点击菜单中【保存】，弹出一个提示框，点【是】，再次弹出一个提示框，点【确定】。

4.调用自定义函数

关闭代码窗口，回到Excel文件。鼠标定位到“拼音首字母”列第一行（A1单元格）。

在函数框中输入=getpy(A1)，（调用自定义函数，获取A1单元格中汉字内容首字母）回车，可以看到获取到A1单元格中内容的首字母。

excel 获取中文首字母缩写相关推荐

WPS中EXCEL 获取中文首字母缩写
1. 下载WPS2019VB插件如果不下载的话,VB编辑器一栏会显示灰色不可用链接:https://pan.baidu.com/s/1PV_p3ngP9zUaszQs70-kSA 提取 ...
Java获取中文拼音、中文首字母缩写和中文首字母
我们有时候会遇到这样的情况,需要获取某些中文的拼音.中文首字母缩写和中文首字母,下面我将为大家介绍一下如何获取中文拼音的缩写. 1.项目建立和配置首先,我们建立一个java项目,新建libs文件夹并 ...
java获取首字母_【Java】获取中文首字母
获取中文首字母有时候,比如微信上根据名字拼音首字母排序并检索.那么用Java获取中文首字母是怎么实现的呢? 代码不多说,直接上代码:(写个工具类) public class FirstCharUt ...
数字排在最前，英文字母其次，汉字则按照拼音进行排序，获取中文首字母
中文名称,按照A-Z方式进行排序. import cn.hutool.extra.pinyin.PinyinUtil; import com.alibaba.nacos.client.utils.St ...
Qt中实现获取中文首字母（GB2312 和 unicode以及调用Unihan实现全汉字拼音转换，支持多音字和生僻字等）和中英文数字排序功能
Qt5中可以通过qSort接口,结合QLocale类和QCollator类,可以对中文,英文,数字进行排序,但默认排序顺序为数字.英文.中文,但如果需要中英文混合排序的话,需要另外封装方法实现. 这种 ...
java怎么获取中文首字母_Java如何获取中文拼音首字母的方法介绍
下面小编就为大家带来一篇java获取中文拼音首字母的实例.小编觉得挺不错的,现在就分享给大家,也给大家做个参考.一起跟随小编过来看看吧如下所示: import net.sourceforge.pin ...
php 怎么获取中文首字母排序,利用PHP怎么获取第一个中文首字母并进行排序
利用PHP怎么获取第一个中文首字母并进行排序发布时间:2021-02-19 15:36:38 来源:亿速云阅读:83 作者:Leah 利用PHP怎么获取第一个中文首字母并进行排序?很多新手对此不是 ...
java获取首字母_Java 获取中文首字母的方法
获取一个字符串的首字母是中文排序以及按照字母搜索的基础,一下是实现一个字符串转换为每个汉字首字母的字符串 //根据一个包含汉字的字符串返回一个汉字拼音首字母的字符串 public String get ...
vue+element 获取中文首字母，转换成大写
//前言import Vue from "vue"; export class oMultiDiff extends Vue {PinYin = {a: "\u554a\ ...