把excel中把汉字转换成拼音(只取首字母)

利用Excel表格中的宏，轻松提取首字母

操作方法

  • 01

    1.启动Excel 2003（其它版本请仿照操作），打开相应的工作表；

  • 02

    2.执行“工具→宏→Visual Basic编辑器”命令（或者直接按“Alt+F11”组合键），进入Visual Basic编辑状态；

  • 03

    3.执行“插入→模块”命令，插入一个新模块。再双击插入的模块，进入模块代码编辑状态；

  • 04

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

  • 05

    5.代码输入完成后，关闭Visual Basic编辑窗口，返回Excel编辑状态；

  • 06

    6.自定义函数就可以用了，如：选中A2单元格，输入公式：=getpy(A2)。

赞 (0)

相关推荐

  • 如何在excel中把汉字转换成拼音

    利用EXCEl表格中的宏,轻松将汉字转换为拼音 操作方法 01 1.启动Excel 2003(其它版本请仿照操作),打开相应的工作表: 02 2.执行"工具→宏→Visual Basic编辑 ...

  • Excel如何把汉字转换成拼音

    有时候在记录一些文字时需要用到拼音,如果自己用手一个个输入会显得非常麻烦,那么该如何将汉字直接转换成拼音呢,这里和大家简单介绍一下,供大家参考,希望对大家能有所帮助. 操作方法 01 首先打开exce ...

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

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

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

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

  • Excel怎么把姓名转换成拼音

    在使用excel输入文字时,有时我们需要将输入的姓名转成拼音,这是怎么操作的呢,下面我们就来看看在excel中是如何将姓名转为拼音的吧. 操作方法 01 打开excel我们在选择的单元格内输入需要的文 ...

  • 如何利用excel把汉字转换成拼音

    我们使用excel的时候,经常会碰到给汉字添加拼音的需求.那么如何快速的给大量的汉字添加拼音呢?下面小编给大家分享一下. 操作方法 01 首先是打开Excel软件,在其中添加一些汉字内容,如下图所示 ...

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

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

  • 如何批量将Excel表格中的金额转换成大写数字

    如何批量将Excel表格中的金额转换成大写数字

    Excel是我们常用的一款数据处理软件,深受大家的欢迎,是我们学习办公的助手,有的朋友想知道怎么批量将Excel表格中的金额转换成大写数字,小编为大家解答这个问题.具体如下:1. 首先,请大家在自己的 ...

  • 如何将Excel表格中的数字转换成条形图

    如何将Excel表格中的数字转换成条形图

    我们在Excel表格中编辑好的数据,想要转换成条形图,该怎么操作呢?今天就跟大家介绍一下如何将Excel表格中的数字转换成条形图的具体操作步骤.1. 首先打开电脑,找到想要编辑的Excel表格,双击打 ...