在Excel中获取汉字拼音首字母并大写

最新推荐文章于 2024-04-29 14:34:31 发布
最新推荐文章于 2024-04-29 14:34:31 发布
阅读量9.3k 收藏 14
点赞数 3
分类专栏： EXCEL
原文链接：https://jingyan.baidu.com/article/0a52e3f43c3f6abf63ed7259.html
版权

最终效果
最终获取全拼首字母
如果单元格输入=getpychar(E2)，并下拉填充，获取的是大写首字母

  1. 打开【开发工具】菜单，点击第一个【Visual
    Basic】,弹出代码窗口，在窗口左侧空白处，点击右键，选择【插入】->【模块】。窗口右侧出现一个白色背景框。
  2. 复制粘贴如下代码内容到编辑框中，并保存
Function getpychar(char)

    tmp = 65536 + Asc(char)

    If (tmp >= 45217 And tmp <= 45252) Then

    getpychar = "A"

    ElseIf (tmp >= 45253 And tmp <= 45760) Then

    getpychar = "B"

    ElseIf (tmp >= 45761 And tmp <= 46317) Then

    getpychar = "C"

    ElseIf (tmp >= 46318 And tmp <= 46825) Then

    getpychar = "D"

    ElseIf (tmp >= 46826 And tmp <= 47009) Then

    getpychar = "E"

    ElseIf (tmp >= 47010 And tmp <= 47296) Then

    getpychar = "F"

    ElseIf (tmp >= 47297 And tmp <= 47613) Then

    getpychar = "G"

    ElseIf (tmp >= 47614 And tmp <= 48118) Then

    getpychar = "H"

    ElseIf (tmp >= 48119 And tmp <= 49061) Then

    getpychar = "J"

    ElseIf (tmp >= 49062 And tmp <= 49323) Then

    getpychar = "K"

    ElseIf (tmp >= 49324 And tmp <= 49895) Then

    getpychar = "L"

    ElseIf (tmp >= 49896 And tmp <= 50370) Then

    getpychar = "M"

    ElseIf (tmp >= 50371 And tmp <= 50613) Then

    getpychar = "N"

    ElseIf (tmp >= 50614 And tmp <= 50621) Then

    getpychar = "O"

    ElseIf (tmp >= 50622 And tmp <= 50905) Then

    getpychar = "P"

    ElseIf (tmp >= 50906 And tmp <= 51386) Then

    getpychar = "Q"

    ElseIf (tmp >= 51387 And tmp <= 51445) Then

    getpychar = "R"

    ElseIf (tmp >= 51446 And tmp <= 52217) Then

    getpychar = "S"

    ElseIf (tmp >= 52218 And tmp <= 52697) Then

    getpychar = "T"

    ElseIf (tmp >= 52698 And tmp <= 52979) Then

    getpychar = "W"

    ElseIf (tmp >= 52980 And tmp <= 53640) Then

    getpychar = "X"

    ElseIf (tmp >= 53679 And tmp <= 54480) Then

    getpychar = "Y"

    ElseIf (tmp >= 54481 And tmp <= 62289) Then

    getpychar = "Z"

    Else '如果不是中文，则不处理

    getpychar = char

    End If

End Function
'逐个取ASC码

Function getpy(str)

    For i = 1 To Len(str)

        getpy = getpy & getpychar(Mid(str, i, 1))

    Next i

End Function
  1. 点击菜单中【保存】，弹出一个提示框，点【是】，再次弹出一个提示框，点【确定】。
  2. 回到excel文件，像使用其他函数一样，单元格中输入=函数名称（单元格）回车即可
  3. getpychar函数为只获取大写首字母，getpy为获取全拼大写首字母
qq_41554671
关注
  • 3
    点赞
  • 踩
  • 14
    收藏
    觉得还不错? 一键收藏
  • 5
    评论
专栏目录
在excel中实现汉字转换拼音首字母大写
hftyhv的博客
11-08 4593
在excel中实现汉字转换拼音首字母大写
oracle getpy函数,sqlserver 快速生成汉字的首拼字母的函数(经典)
weixin_29735807的博客
04-08 671
代码如下：USE [tempdb]GO/****** Object: UserDefinedFunction [dbo].[fun_getPY] Script Date: 05/23/2012 18:03:45 ******/SET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGO/*获取汉字的首拼音如果是非汉字字符*/ALTER function [dbo].[...
EXCEL中提取每一个文本汉字的头一个大写字母的公式
09-24
EXCEL中提取文本每一个汉字的头一个大写字母的公式，内面有3种方法，个人推荐第2种
excel中汉字拼音提取
09-17
HzToPy汉字转拼音函数说明 函数原型如下： HzToPy(Hz As String, Optional Sep As String = "", Optional ShowNotation As Boolean = True, Optional ShowInitialOnly As Boolean, Optional ShowOnlyOneChar As Boolean = True) As String 参数名 参数类型 说明 第1个参数 Hz 字符型 为汉字字符串 第2个参数 Sep 字符型，可选 设定拼音间隔字符，默认为空（""） 第3个参数 ShowNotation 布尔型，可选 设定是否显示注音符号，默认显示 第4个参数 ShowInitialOnly 布尔型，可选 设定是否仅显示拼音首字，默认显示全部 第5个参数 ShowOnlyOneChar 布尔型，可选 设定是否仅显示拼音首字母("zh"显示为"z")，默认只显示首字母 应用举例 目标汉字： 汉字转拼音举例 1 显示用空格分开的拼音 公式： =HzToPy($b$19," ") 结果： hàn zì zhuǎn pīn yīn jǔ lì 2 显示用空格分开的拼音，同时不显示注音符号 公式： =HzToPy($b$19," ",false) 结果： han zi zhuan pin yin ju li 3 显示用空格分开的拼音，不显示注音符号,同时仅显示拼音的首字,并大写 公式： =HzToPy($b$19," ",false，true，false) 结果： H Z ZH P Y J L 4 显示用空格分开的拼音，不显示注音符号,同时仅显示拼音的首字母,并大写 公式： =HzToPy($b$19," ",false，true) 结果： H Z Z P Y J L GetPy()说明 取汉字拼音的首字母(大写） 公式 =GETPY(B35) 结果 GS 函数原型:getpy(string) PinYin()说明 取单个汉字或首个汉字首拼音首字母(小写） 公式 =pinyin(B43) 结果 g 函数原型:pinyin(string)
excel汉字转换成拼音(只取首字母)
最新发布
weixin_45868184的博客
04-29 299
2.执行“工具→宏→Visual Basic编辑器”命令（或者直接按“Alt+F11”组合键），进入Visual Basic编辑状态；3.执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态；1.启动Excel 2003（其它版本请仿照操作），打开相应的工作表；选中A2单元格，输入公式：=getpy(A2)利用Excel表格中的宏，轻松提取首字母。4.将代码输入其中；
获取汉字的拼音首字母大写
天步的博客
09-13 3108
function get_letter($string) { //生成字符串数组 $charlist = mb_str_split($string); //接收多个字符串，返回每个字符首字母大写 return implode(array_map("get_a_z", $charlist)); //只返回首个字符首字母大写 //return get_a_z($charlist['0'])...
excel中获取汉字的首字母
weixin_72749296的博客
05-30 1149
3.回到Excel界面，旁边单元格内输入“=getpy(A1)&RIGHT(B1,2)&RIGHT(C1,2)”，其中“=getpy(A1)”为求A1单元格的拼音首字母大写，后面是求B1和C1单元格后两位，这时按下回车键执行。1.首先打开Excel，然后按Alt+F11打开Viaual Basic编辑器，点击工具栏“插入”，下拉菜单内点击“模块”；2.把准备好的取拼音首字母大写函数粘贴进来，关闭Viaual Basic编辑器。Else '如果不是中文，则不处理。
获取Excel种文字的拼音首字母函数
lin420139008lin的专栏
05-22 3062
一、开启Excel中的 开发工具（文件->选项->自定义功能区->主选卡 勾选开发工具） 二、回到Excel的主页，点选开发工具 Visual Basic 三、选择对应的Sheet档，右键 插入->模块 中插入以下代码，并保存！ Function getpychar(char) tmp = 65536 + Asc(char) If (tmp &gt...
excel 汉字转拼音/汉字提取首拼
weixin_45528530的博客
03-29 5754
excel 汉字转拼音/汉字提取首拼。
Excel_提取某一列的汉字拼音首字母
r_coder的博客
07-11 3453
适用需求_对于Excel表中,想要获取某一列的汉字拼音首字母 首先,点击alt+f11打开Microsoft Visual Basic for Applications(也就是offices中带的VB的编辑器),然后在最上方工具栏点击_插入->模块,在弹出的编辑框中,将下面代码拷入,保存,关闭. 代码(这代码是在网上找的,略微修改了一下)如下: # 想要大写的话,就把里面的a,b.....
excel中提取汉字的拼音首字母
止境
08-18 1741
Function hztopy(hzpy As String) As String Dim hzstring As String, pystring As String Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer hzstring = Trim(hzpy) hzpysum = Len(Trim(hzstrin
excel文本转换为拼音(全拼、首字母-大写、小写).rar
09-03
通过excel提供的宏很好的可以将文字转换为拼音，可以首字母大写、全拼。通过Visual Basic新建一个模块来实现
EXCEL中汉字拼音首字母
10-18
标题提到的“EXCEL中汉字拼音首字母”是指在Excel电子表格中利用特定的方法获取汉字的拼音首字母。描述中提到了一个解决方案，即使用“PINY”函数，这是一个自动加载项提供的功能，它可以帮助我们在Excel或WPS表格中...
js汉字转拼音工具
12-08
这个工具通过JavaScript编程语言实现了将汉字转换为对应的拼音，提供了三种主要功能：获取汉字的首字母大写拼音，获取汉字的大写全拼，以及获取汉字的小写全拼。 首先，让我们了解一下汉字转拼音的基本原理。在...
在Excel中获得汉字的首字母
lyx的专栏
05-31 1353
在EXECL中，按ALT+F11，插入---模块复制下列代码：   Function hztopy(hzpy As String) As String  Dim hzstring As String, pystring As String  Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer  hzstring = Tri
excel表格自动填充为汉字拼音首字母
热门推荐
兔纸先森的后花园
10-09 1万+
更改自：https://jingyan.baidu.com/article/75ab0bcb26da9f96874db22d.html 环境说明 microsoft excel 2016 单元格斜线分为两格 1、打开【Excel表格】，选中sheet表，右键-》查看代码；或者按组合快捷键【Alt+F11】，打开【Visual Basic编辑器】： 2、点击上面菜单栏的【插入】选项，然后选择【模板】，如下图所示： 3、将下面的代码复制到窗口中（该代码就是取汉语拼音首字母的一个程序）：
excel 2016生成汉字首拼字母小写
liu_xzhen的博客
09-02 3972
【文件】->【选项】->【自定义功能区】->【主选项卡】->勾选【开发工具】 点击确定以后，导航菜单里增加一项【开发工具】 打开【开发工具】菜单，点击第一个【Visual Basic】,弹出代码窗口， 在窗口左侧空白处，点击右键，选择【插入】->【模块】。窗口右侧出现一个白色背景框。复制以下代码： Function getpychar(char) tmp = 65536 + Asc(char) If (tmp >=...
在excel中获取汉字拼音首字母并大写
09-03
在Excel中获取汉字拼音首字母并大写，可以通过使用VBA宏来实现。下面是实现的步骤： 1. 打开Excel文件，按下Alt+F11键打开VBA编辑器。 2. 在VBA编辑器中，点击插入菜单，选择模块，新建一个模块。 3. 在新建的模块中，编写以下VBA代码： ```vba Function GetFirstLetter(Str As String) As String Dim i As Integer Dim arr As Variant Dim charItem As String Dim result As String '设定汉字拼音首字母 arr = Array("A", "B", "C", "D", "E", "F", "G", "H", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "W", "X", "Y", "Z") '遍历字符串的每个字符 For i = 1 To Len(Str) charItem = Mid(Str, i, 1) '判断字符是否为汉字 If Asc(charItem) > 0 And Asc(charItem) < 256 Then result = result & UCase(charItem) ElseIf Asc(charItem) >= -20319 And Asc(charItem) <= -20284 Then '计算汉字的拼音首字母 result = result & arr(Asc(charItem) + 20320) '转换成对应的拼音首字母并拼接 Else '非汉字的情况下保留原字符 result = result & UCase(charItem) End If Next i GetFirstLetter = result End Function ``` 4. 编写完成后，关闭VBA编辑器回到Excel文件。 5. 在使用的单元格中输入`=GetFirstLetter(需转换的文字)`，按下回车即可得到对应的汉字拼音首字母大写的结果。 注意：此方法仅适用于单个汉字的转换，在处理连续的汉字时可能会有一些限制。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 5
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值