Excel处理中文转拼音缩写

转发整理

1、打开Excel

2、Alt+F11打开VBA

3、右键左上角工程项目，添加模块

4、将以下代码复制到代码区

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 To -16213: pinyin = "K"
Case -16212 To -15641: pinyin = "L"
Case -15640 To -15166: pinyin = "M"
Case -15165 To -14923: pinyin = "N"
Case -14922 To -14915: pinyin = "O"
Case -14914 To -14631: pinyin = "P"
Case -14630 To -14150: pinyin = "Q"
Case -14149 To -14091: pinyin = "R"
Case -14090 To -13319: pinyin = "S"
Case -13318 To -12839: pinyin = "T"
Case -12838 To -12557: pinyin = "W"
Case -12556 To -11848: pinyin = "X"
Case -11847 To -11056: pinyin = "Y"
Case -11055 To -2050: pinyin = "Z"
Case Else: pinyin = p
End Select
End FunctionFunction getpy(str)
For i = 1 To Len(str)
getpy = getpy & pinyin(Mid(str, i, 1))
Next i
End Function

5、保存

6、回到Excel，单元格使用 getpy()函数，如“ =getpy(A1)”

ps:最后一步引用函数错误，应该是getpy……用pinyin只能获取一个字母

Excel处理中文转拼音缩写相关推荐

【Orcale】------- Orcale 实现中文转拼音/缩写大小写/全拼音大小写
1.需要在orcale里面导入一下sql; oracle汉字转拼音 ORACLE中文转拼音缩写.sql(35.9 KB) 链接:https://pan.baidu.com/s/12hGCAzT5YTm ...
excel 宏汉子转拼音缩写
Excel 汉字转拼音 '''''''''''''''''''''''''''''' Function getpychar(char) tmp = 65536 + Asc(char) If (tmp ...
excel 获取中文首字母缩写
1.设置[开发工具]菜单 [文件]->[选项]->[自定义功能区]->[主选项卡]->勾选[开发工具] 点击确定以后,导航菜单里增加一项[开发工具] 2.自定义函数打开[开发 ...
js 中文转拼音缩写
源码 // 汉字拼音首字母列表本列表包含了20902个汉字,用于配合 ToChineseSpell //函数使用,本表收录的字符的Unicode编码范围为19968至40869, XDesigner ...
js实现将中文转拼音缩写大小写
前端开发一起交流QQ群:740034288. 1. 参考:https://blog.csdn.net/qq_38366657/article/details/83788507. 2. 封装: var ...
WPS中EXCEL 获取中文首字母缩写
1. 下载WPS2019VB插件如果不下载的话,VB编辑器一栏会显示灰色不可用链接:https://pan.baidu.com/s/1PV_p3ngP9zUaszQs70-kSA 提取 ...
java 汉字转拼音缩写_汉字转拼音 java 工具类
package qing.huang; import java.io.UnsupportedEncodingException; import java.util.ArrayList; import ...
Java获取中文拼音、中文首字母缩写和中文首字母
我们有时候会遇到这样的情况,需要获取某些中文的拼音.中文首字母缩写和中文首字母,下面我将为大家介绍一下如何获取中文拼音的缩写. 1.项目建立和配置首先,我们建立一个java项目,新建libs文件夹并 ...
Excel中文转拼音，要不要空格可自选
http://blog.163.com/huangbao_007/blog/static/35636535201271725449146/ 下载LOFTER我的照片书 | Excel中文转拼音(简称版 ...

Excel处理中文转拼音缩写

Excel处理中文转拼音缩写相关推荐

最新文章

热门文章

Excel处理 中文转拼音缩写

Excel处理 中文转拼音缩写相关推荐

最新文章

热门文章

Excel处理中文转拼音缩写

Excel处理中文转拼音缩写相关推荐