excel中如何将文本转换成拼音缩写

步骤如下:

1.ALt+F11,打开VBE界面,左上角空白处,点击右键,插入模块

2.在模块的空白处,粘贴上如下代码:

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 Function
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & pinyin(Mid(str, i, 1))
Next i
End Function

3.关闭VBE界面,返回Excel,就可以像正常函数一样使用自定义的Getpy函数,来取得文本的拼音缩写了

(0)

相关推荐

  • EXCEL中如何将中文转换成拼音

    有时候我们需要在EXCEL中将中文一次性全转成拼音(特别是中文姓名转成拼音经常遇到),如果一个一个查一个一个输入将相当费时,下面就来说说比较省时省力的方法. 操作方法 01 下面第一张图片为需要转换成 ...

  • 在excel中怎样把汉字转换成拼音

    这里介绍在excel中把汉字转换成拼音 操作方法 01 打开要转换成拼音的excel表格 02 按"Alt+F11"组合键,进入Visual Basic编辑状态. 也就是看到的这个 ...

  • excel怎么批量将汉字转换成拼音?

    excel怎么批量将汉字转换成拼音? 步骤 1.打开一张需要转换的Excel表格(如图所示,小编乱打的姓名,如有雷同,纯属巧合) 2.执行"工具→宏→Visual Basic编辑器" ...

  • Excel中的表格如何转换成Word表格的方法

    excel中的表格怎样转换成WORD表格 首先,用Excel编辑好一个表格,然后点击“文件”→“另存为web页”。web页就是网页文件,在“保存选项”处把“保存整个工作簿”调整成“选择:工作表”,把默 ...

  • 如何将Excel中具体的日期转换成相应的星期数?

    相信很多小伙伴在日常办公中都会用到Excel,在其中如何才能将具体的日期转换成相应的星期数呢?方法很简单,下面小编就来为大家介绍.具体如下:1. 首先,打开电脑上的Excel,在其中输入日期.2. 将 ...

  • excel中怎么将行转换成列

    excel中怎么将行转换成列 操作方法 01 首先我们找到桌面上的excel表格 02 双击打开 03 我们随意输入几行数据,如图 04 然后选中全部数据,ctrl+c复制 05 接着在其他任意单元格 ...

  • excel中如何把表格转换成柱状图

    excel中如何把表格转换成柱状图 操作方法 01 首先我们找到电脑桌面上的excel表格 02 双击打开它 03 输入我们需要转换的表格,如图是一个期中期末成绩对比的表格 04 我们点击插入,选择柱 ...

  • Excel中如何将表格转换成图标

    Excel中如何将表格转换成图表呢?是非常简单的,下面小编来教大家. 操作方法 01 首先,我们打开我们电脑上面的excel,然后在表格中输入一些数据: 02 之后我们选中这些数据,然后点击插入: 0 ...

  • Excel中数字如何自动转换成中文大写数字

    平时工作中输入金额时常常需要转成中文大写数字,但输入起来比较麻烦,那么是否可以将数字直接转换成中文大写呢?本教程中就为大家介绍在excel中如何将数字自动转换成中文大写数字。 第一步:打开Excel工 ...