excel表格自动填充为汉字拼音首字母
更改自:https://jingyan.baidu.com/article/75ab0bcb26da9f96874db22d.html
环境说明
microsoft excel 2016
操作步骤
1、打开【Excel表格】,选中sheet表,右键-》查看代码;或者按组合快捷键【Alt+F11】,打开【Visual Basic编辑器】:
2、点击上面菜单栏的【插入】选项,然后选择【模板】,如下图所示:
3、将下面的代码复制到窗口中(该代码就是取汉语拼音首字母的一个程序):
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
4、关闭Visual Basic编辑窗口,回到Excel表格中,如下图所示:
5、在B2单元格中输入公式【=getpy(A2)】,然后按【回车键】,如下图所示:
6、将鼠标移到B2单元格右下角呈+号时下拉填充公式即可,如下图所示:
excel表格自动填充为汉字拼音首字母相关推荐
- Excel中如何获取汉字拼音首字母
Excel中如何获取汉字拼音首字母 在工作中,为了方便查询.排序或者编码,需要生成汉字内容信息的首字母,如果信息很多的话,一个个录入是一件很麻烦的事情,下面给大家介绍一个便捷的方法,轻松获取汉字拼音首 ...
- 在Excel中如何获取汉字拼音首字母?
转自:https://jingyan.baidu.com/article/0a52e3f43c3f6abf63ed7259.html百度经验 在Excel中如何获取汉字拼音首字母?| 在工作中,为了方 ...
- Excel如何提取汉字拼音首字母
今天跟大家分享一下Excel如何提取汉字拼音首字母 1.我们想要将D列数据中的汉字拼音首字母提取出来. 2.首先我们选中D列数据单元格区域 3.然后点击DIY工具箱(Excel工具箱,百度即可了解详细 ...
- php 获取首字母,PHP_php 获得汉字拼音首字母的函数,php获取汉字拼音的第一个字母 - phpStudy...
php 获得汉字拼音首字母的函数 php获取汉字拼音的第一个字母 复制代码 代码如下: function getinitial($str) { $asc=ord(substr($str,0,1)); ...
- 在delphi 7中实现获取汉字拼音首字母
公司的餐饮系统出品的助记码,还没实现自动从出品名称获取汉字拼音首字母. 所以在网上找了三种解决方法, 一种是kaguo 的使用常用汉字拼音查找方法,这种代码十分简单,实现方便,但是这种代码仅仅是一级字 ...
- Excel_提取某一列的汉字拼音首字母
适用需求_对于Excel表中,想要获取某一列的汉字拼音首字母 首先,点击alt+f11打开Microsoft Visual Basic for Applications(也就是offices中带的VB ...
- C# 使用微软的Visual Studio International Pack 类库提取汉字拼音首字母 转
C# 使用微软的Visual Studio International Pack 类库提取汉字拼音首字母 提取汉字拼音的方法可以使用微软的一个类库 Visual Studio Internationa ...
- python怎么识别拼音-python获取一组汉字拼音首字母的方法
本文实例讲述了python获取一组汉字拼音首字母的方法.分享给大家供大家参考.具体实现方法如下: #!/usr/bin/env python # -*- coding: utf-8 -*- def m ...
- python汉字拼音查询_python获取一组汉字拼音首字母的方法
本文实例讲述了python获取一组汉字拼音首字母的方法.分享给大家供大家参考.具体实现方法如下: #!/usr/bin/env python # -*- coding: utf-8 -*- def m ...
- (转载)C#提取汉字拼音首字母的方法
今天突然要用到提取汉字拼音首字母的功能,去网上找了找,发现没有几个好用的,决定自己写一个,效果还不错,发出来大家一起研究下,分享给大家!直接入主题: 1.首先对编码进行定义 #region 编码定义 ...
最新文章
- TCP/IP的四元组 五元组 七元组
- Zookeeper的Windows安装
- 将java.util.concurrent.BlockingQueue用作rx.Observable
- SQLSERVER如何获取一个数据库中的所有表的名称、一个表中所有字段的名称
- 电脑用linux命令大全,电脑操作时常用的一些Linux命令
- 在Sharepoint Designer 2007 中加入定制的工作流动作
- Deepin Linux 15.10 发布
- mysql metadata lock(二)
- 04.electron-(使用remove模块及安全策略)
- python 运动模糊 退化模型 点扩散函数 逆滤波与维纳滤波
- 批改网复制粘贴_如何使用批改网组织线上考试
- MySQL索引失效场景以及解决方案
- 程序员和码农有什么不同?从这三个单词就看得出来
- 高盐废水处理工艺——料液精制与除杂
- 作业辅导视频 SS2023-HW13:最小相位系统
- 2021-08-02网关http或tcp收发等极简物联网通用json协议设计
- EasyNVS摄像机公网全终端无插件网页摄像机直播管理服务之网页无插件直播服务搭建流程
- OSChina 周六乱弹 ——清明节你怎么过的这么开心?
- 12 DB操作 Hibernate Panache
- 华为鸿蒙系统超级终端,华为发布鸿蒙OS Connect 打造鸿蒙硬件“超级终端”概念...
热门文章
- html5 3d 图片动画制作软件,9款令人惊叹的HTML5 3D动画应用
- python爬取qq音乐歌词风变编程_爬取QQ音乐歌词
- C语言ALG什么文件,alg.exe是什么进程文件?如何删除alg病毒?
- 常见计算机硬件故障维修方法,电脑硬件有哪些常见问题 电脑硬件常见问题维修技巧【详解】...
- W ndows7蓝屏0x00000024,Win7开机蓝屏报错0x00000024如何解决?
- kali 安装chrome浏览器
- 各种带有物理学特点的把妹法[转]
- Linux初识及常用命令
- QQ空间添加背景音乐
- day8--socket回顾