excel 如何提取汉字首字母
发布时间：2022-06-21 09:25:38
答：如果用函数公式来做，需要汉字和拼音的对照表才行。这个问题，有大神推荐使用自定义函数，并且编写一段VBA代码来搞定。
操作步骤：打开VBE编辑器，插入模块，输入以下代码，返回工作表，B1单元格输入公式：=getpy(A1)，下拉复制。
记得把文件格式存为XLSM，也就是启用宏的工作簿，否则有自定义函数的文件打开的时候会出现#NAME错误。
代码如下：
Functionpinyin(pAsString)AsString
i=Asc(p)
SelectCasei
Case-20319To-20284:pinyin="A"
Case-20283To-19776:pinyin="B"
Case-19775To-19219:pinyin="C"
Case-19218To-18711:pinyin="D"
Case-18710To-18527:pinyin="E"
Case-18526To-18240:pinyin="F"
Case-18239To-17923:pinyin="G"
Case-17922To-17418:pinyin="H"
Case-17417To-16475:pinyin="J"
Case-16474To-16213:pinyin="K"
Case-16212To-15641:pinyin="L"
Case-15640To-15166:pinyin="M"
Case-15165To-14923:pinyin="N"
Case-14922To-14915:pinyin="O"
Case-14914To-14631:pinyin="P"
Case-14630To-14150:pinyin="Q"
Case-14149To-14091:pinyin="R"
Case-14090To-13319:pinyin="S"
Case-13318To-12839:pinyin="T"
Case-12838To-12557:pinyin="W"
Case-12556To-11848:pinyin="X"
Case-11847To-11056:pinyin="Y"
Case-11055To-2050:pinyin="Z"
CaseElse:pinyin=p
EndSelect
EndFunction
Functiongetpy(str)
Fori=1ToLen(str)
getpy=getpy&pinyin(Mid(str,i,1))
Nexti
EndFunction
excel 如何提取汉字首字母的下载地址：
0
投稿猜你喜欢
- 在Excel中录入好数据以后经常需要用到打印功能，或许有时候会因为数据过大或者其他原因使得表格打印不完整，如果有朋友不会解决这个问题的欢迎一
有时候我们需要在excel中某列，输入比如像“001,002,003……”这样的格式的序号，但是如果我们直接输入的话，系统会自动的把前面的0- excel怎么功能区菜单怎么隐藏？excel顶部有功能区菜单，想要隐藏菜单，该怎么隐藏呢？下面我们就来看看详细的教程，需要的朋友可以参考下e
- 提取excel文件里照片动画教程。
- 使用代码高亮插件的步骤如下：步骤一：下载插件和源代码：SyntaxHighlighter4Word.zip步骤二：下载文件后，解压，然后双击
- PDF凭借着良好的稳定性和跨平台特性收到越来越多的办公人士的欢迎，因为很多人制作了一份word文档之后会将其转换成PDF格式的，那么具体该如
- 在Excel表格里面，有很多我们不知道或者不会使用的小技巧，处理好表格是我们学习和工作最常用的小工具。Excel 工具主要有WP
- Excel中的公式经常需要合并，公式具体该如何合并呢?接下来是小编为大家带来的excel 合并表格公式的方法，供大家参考。excel 合并表
- 对于那些使用Windows101909操作系统的用户，有时他们可能会用最新的系统补丁更新自己的操作系统。所以对于win101909更新kb4
- 雨林木风是款很不错的系统版本，其中的win10更是受到用户肯定。只要通过几个步骤您就能安装好它，通过u盘系统来安装是个不错的选择。下面来看看
- 在编辑word文档时，为了一些需要，我们会需要为word文档设置背景色或背景图片，但设置成功后在打印时又会丢失，那么如何使其打印时设置的背景
- 下面我们将介绍VLOOKUP函数。顾名思义，这是一个查找函数，处理垂直列表中的项目。其它函数可能会更好地从表中提取数据，但VLOOKUP函数
- 前不久看见有朋友问，Win 7下Word打不开 ，提示“向程序发送命令时出错”，重新启动Word，还是这样的问题，这是什么原因呢，遇到这种情
- 操作方法1、原始数据表如图所示，其中分别在一些单元格中标注了黄色和红色。 2、单击“产品名称”列上的筛选按钮，选择
- excel中数据较多且某一数据重复出现的情况下，工作中经常碰到需要统计一定区域内重复数据出现的次数，该如何进行呢?下面就跟小编一起看看吧。e
- 首先，我们先来了解一下，什么是累加、叠加。一、累加、叠加的理论介绍看下图。 B列，保存的是原始的数据。现在，我们要
- 第一步，在桌面建立一个EXCEL表格，并命名。第二步，编辑内容，图1第三步，加边框，并设置最合适的列宽。1.设置边框，选定要加边框的地方－鼠
- Win10电脑怎么知道有没有被远程控制？现在的黑客太多了，很多时候黑客可以通过远程控制的方式来控制你的电脑，窃取用户信息，从而危害电脑安全的
- Win10重启该内存不能为read怎么办？有用户在电脑重启的时候出现了错误提示，最后是该内存不能为read，遇到这个问题该怎么办呢？小编认为
- Win10自带清理功能如何使用？我们在级了win10后还在用很多清理软件清理了垃圾，但是每天系统都产生了大量的垃圾，每天都要清理，可是你还不
