有谁知道Excel中提取拼音的首字母的方法？
步骤一：将下述常量数组定义为名称，如PY，下面就是包括26个字母及其第一个汉字： ={"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";" 夻","J";"咔","K";"垃","L";"呒","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";" 仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}
复制公式或代码步骤二：使用LOOKUP(汉字,PY)或者VLOOKUP(汉字,PY,2)就可以返回指定汉字的拼音首字母：
（注意：使用VLOOKUP()函数时，其最后一个参数须用1或True的模糊“默认”查找方式）
如下，LOOKUP()的个数可根据汉字的个数决定，由于上面定义的PY最前面有一个""的值，所以可以屏蔽错误，当然也可以用迭代计算的方式获得： =LOOKUP(LEFT(A2),PY)&LOOKUP(
可以利用LEFT函数实现。
假设表格如下，需要提取A列单元格拼音的首字母填写在相应B列单元格中。
步骤：在B1单元格输入公式“=LEFT(A1,1)”,回车，然后向下填充即可。
最终效果：
你好，根据你的描述，你的问题可以由宏代码实现，当然也可以由函数公式直接实现，不过我觉得用函数公式实现更为简单。假如姓名在a1单元格，姓名为蒋彦斌三个字的，在任意单元格输入以下公式，会得出JYB的结果。公式如下：
=LOOKUP(CODE(LEFT(A1,1)),45217+{0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},{"A","B","C","D","E","F","G","H","J","K","L","M","N","O","P","Q","R","S","T","W","X","Y","Z"})&LOOKUP(CODE(RIGHT(A1,2)),45217+{0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},{"A","B","C","D","E","F","G","H","J","K","L","M","N","O","P","Q","R","S","T","W","X","Y","Z"})&LOOKUP(CODE(RIGHT(A1,1)),45217+{0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},{"A","B","C","D","E","F","G","H","J","K","L","M","N","O","P","Q","R","S","T","W","X","Y","Z"})
以上公式给你备用，难说你以后又要用，算是给你备用吧！
但是根据你的题目要求，你并不需要所有汉字的首字母，比如你的C1是“机械”，那么B1需要为“J”；C2是“玩具”，那么B2需要为“W”。看来你的你只要第一个汉字的首字母，其他的都不要。只要则删除上面公式中&后面的部分即可。具体公式是（把以下公式复制粘贴入B1单元格，用填充柄往下拖公式即可）：
=LOOKUP(CODE(LEFT(C1,1)),45217+{0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},{"A","B","C","D","E","F","G","H","J","K","L","M","N","O","P","Q","R","S","T","W","X","Y","Z"})
如下图：
真诚希望能够帮助到你！当然上面有人已经用邮件和百度HI帮你解决。我不知道他是不是用我一样的方法，但我觉得，邮件其他人看不到，能够解决问题的答案应该共享，这样百度网络才会更美好，大家也才需要网络！－－－－－河阳小子！
在日常工作中，为了方便查询、排序或者编码，需要生成汉字内容信息的首字母，如果信息很多的话，一个个录入是一件很麻烦的事情。因此，关于在EXCEL中提取拼音的首字母的方法，具体的操作如下：
一、新建Excel文件
新建一个Excel文件，输入示例汉字内容。
二、设置【开发工具】菜单
【文件】->【选项】->【自定义功能区】->【主选项卡】->勾选【开发工具】
点击确定以后，导航菜单里增加一项【开发工具】
三、自定义函数
打开【开发工具】菜单，点击第一个【Visual Basic】,弹出代码窗口，
在窗口左侧空白处，点击右键，选择【插入】->【模块】。窗口右侧出现一个白色背景框。
复制粘贴如下内容到
点击菜单中【保存】，弹出一个提示框，点【是】，再次弹出一个提示框，点【确定】。
三、调用自定义函数
关闭代码窗口，回到Excel文件。鼠标定位到“拼音首字母”列第一行（C2单元格）。
在函数框中输入=getpy(B2)，（调用自定义函数，获取B2单元格中汉字内容首字母）回车，可以看到获取到B2单元格中内容的首字母。
四、生成首字母
鼠标定位到单元格C2右下角，光标变成黑色十字，按住鼠标左键往下拉至C15行。获取全部内容的首字母。
可以网上搜一下啊，很多的
Excel汉字转换得到其拼音函数
2008年12月10日 星期三 09:21
打开Excel->工具->宏->Viaual Basic编辑器
在弹出来的窗口中对着VBAproject点右键->插入->模块
下面会出现一个名为"模块1"，点击
在右边的空白栏中粘贴以下内容：
''''''''''''''''''''''
'VBscript代码提供者：小白
'联系方法：
'E-mail:xiaobai@17560.net
'
'VBA代码转换者：惟惟
'联系方法：Email:wuweiyin@yeah.net
'个人博客：http://weiwei.blog.163.com
'如有不正确的地方，请提出来或是帮忙完善
'谢谢
''''''''''''''''''''''''''''''
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 >= 53689 And tmp <= 54480) Then
getpychar = "Y"
ElseIf (tmp >= 54481 And tmp <= 62289) Then
getpychar = "Z"
Else '如果不是中文，则不处理
getpychar = char
End If
End Function
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & getpychar(Mid(str, i, 1))
Next i
End Function
********复制到此结束,本行不复制*******
现在转换函数已编写完成!关掉此编缉的窗口。
要在Excel中使用，方法如下：
A1 A2
中国 =getpy(A1)
转自：http://hi.baidu.com/shanxilzl/blog/item/4372880247ec070a4bfb51ae.html
1.要保证拼音前面没有空格 可以用函数 trim()取出
2.然后在B1中输入 =left(C1,1)
下拉即可
谁知道如何在excel中统计一列数值中相同的数值的个数? 高手都看看吧...
一.首先找出要统计列的所以不重复数据 这里给一个例子：比如要统计出A列中相同数据的个数 首先在B2列中输入：=COUNTIF($A$2:A2,A2)，注意：第一个参数起始地址使用绝对引用，结束不使用绝对引用。往下拉，结果如下：然后使用筛选功能：将所有B列值为1的筛选出来，如下图：ctrl+c，ctrl+v给他...
Excel中常用的8个函数
Exceli中常用的8个函数 1、SUM函数 SUM函数的作用是求和。统计一个单元格区域:=SUM(A1:A10)统计多个单元格区域=SUM(A1:A10,C1:C10)。 2、AVERAGE函数 AVERAGE的作用是计算平均数。 3、COUNT函数 COUNT函数计算含有数字的单元格的个数。COUNT函数参数可以是单元格、单元格引用,或者数字COUNT函数会忽略非数字的值...
谁知道EXCEL的下列IF逻辑函数怎样写:如果是整数则显示“1”,否则是...
如果函数 IF 的参数包含数组，则在执行 IF 语句时，数组中的每一个元素都将计算。Microsoft Excel 还提供了其他一些函数，可依据条件来分析数据。例如，如果要计算单元格区域中某个文本字符串或数字出现的次数，则可使用 COUNTIF 工作表函数。如果要根据单元格区域中的某一文本字符串或数字求和，则可...
有谁知道怎么在excel表的一组数据中找出任意几个数的
准备工具\/材料：装有windows 10的电脑一台，Microsoft Office 家庭和学生版 2006 excel软件。实现在Excel表的一组数据中找出任意几个数相加等于指定数据的办法如下：1、首先，我们在单元格D3中输入求和公式:=SUMPRODUCT(A2:A14*B2:B14)。2、然后在单元格D4中输入差值公式：=D1-D3。3、然后，选择...
谁知道excel的基本快捷操作
Alt+F4 :不管你打开几个工作簿，都会强制退出Excel。如果有文件没有保存，Excel会提示你是否保存 Ctrl + Shift + ：应用带两个小数位的“货币”数字格式，(负数在括号中)Ctrl + 0：隐藏单元格所在列 Ctrl + 1：显示“单元格格式”对话框 Ctrl + 5：应用或取消删除线 Ctrl + 9：隐藏单元格所在...
请问有谁知道怎么在excel中自动求积吗?谢谢了。请讲解通俗易懂一点...
你是想求行的积还是列的积，如果是求行的积，可以在你想把积放在的一个单元格里，先输入“=”号，再输入第一个数所在的列数，如“A1”，再输入“*”号，再输入第二个数所在的列数，如“B1",如果还有更多的数，就照这样的方法继续输入，然后按“Enter”键，就会自动求出积了。这样求出一行的...
有谁知道excel表格中各种函数分别的用法
2011-03-03 有谁知道excel表格中各种函数分别的用法呢 28 2011-10-19 Microsoft Excel工作表中所有函数的用法,有人知... 2 2012-02-02 Excel表格中常用的几个函数用法? 3 2012-06-07 谁有EXCEL表格的函数用法大全啊!! 2018-03-14 excel中各个函数的作用及使用方法 6 2019-04-08 excel中分类汇总功...
请问谁知道如何在excel中计算公式的值? 我都迷茫了,打心底谢谢了
在正常的情况下，按fx这个按钮，就可以正常输入公式，在单元格中，显示的不是公式，而是公式运算的值，当然，也可以不按这个按钮，比如，我直接在d2单元格输入=a1*a2，那么这个单元格显示的就是a1单元格中的数值乘以a2单元格中的数值的积
谁知道 excel 里=SUBTOTAL(103,B$2:B2) 103后面字符串的含义?
SUBTOTAL函数第一参数说明如下图：语法: SUBTOTAL(function_num,ref1,ref2, ...)Function_num 为 1 到 11（包含隐藏值）或 101 到 111（忽略隐藏值）之间的数字，指定使用何种函数在列表中进行分类汇总计算。Function_num （包含隐藏值）为1到11之间的自然数，用来指定分类汇总计算使用的函数 1 ...
EXCEL中某一个工作表我输入=A1+B1,结果就显示=A1+B1,怎么调格式都不行...
两种可能性：1. 单元格格式为文本，解决办法，单元格格式中设置为通用格式后，定位到该单元格再回车 2. 设置了“在单元格中显示公式而非计算结果”，解决办法：可以在选项的高级中找到该项后去其对勾。或在公式选项卡中单击“显示公式”。
箕倩美加： 在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 = Trim(hzpy) hzpysum = Len(Trim(...
余姚市18727214720： 如何在Excel中提取出姓名的拼音首字母呢? - ？
箕倩美加： 首先,我们需要一个可以将汉字转化为拼音的函数.Excel本身并没有这样的函数,但是我们可以借助一些外部工具或者自定义VBA函数来实现这个功能.假设我们已经有了一个可以将...
余姚市18727214720： 在Excel里面怎么自动提取字段的第一个汉字的拼音首字母? - ？
箕倩美加： A1: =LOOKUP(CODE(B1),45217+{0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},{＂A＂,＂B＂,＂C＂,＂D＂,＂E＂,＂F＂,＂G＂,＂H＂,＂J＂,＂K＂,＂L＂,＂M＂,＂N＂,＂O＂,＂P＂,＂Q＂,＂R＂,＂S＂,＂T＂,＂W＂,＂X＂,＂Y＂,＂Z＂}) 这是看来的答案,你自己研究一下吧!
余姚市18727214720： 如果在Excel用函数实现对拼音的首字母提取? - ？
箕倩美加： =MID(a1,1,1)&MID(a1,6,1)&MID(a1,11,1) 不算空格是这样的 算空格在退后一位 告诉你个可实现的方法吧 你先把拼音分列 以空格为分列条件 然后再用mid函数提取分出来的每个拼音的首字母 用&和并 比如分成a1 wang b1 xiao c1 gang 在d1内打...
余姚市18727214720： EXCEL 如何取汉字首拼(包括多音字首拼) - ？
箕倩美加： 在EXCEL中获取汉字首拼的方法如下:1、依次点击【文件】-【选项】-【自定义功能区】-【主选项卡】-勾选【开发工具】.2、点击确定后,导航菜单内将增加一项【开发工具】.3、打开【开发工具】菜单,点击【Visual Basic】,弹出代码...
余姚市18727214720： 在excel中如何用函数将一串文字转为一串拼音首写音字母? - ？
箕倩美加： 打开Excel->工具->宏->Viaual Basic编辑器 在弹出来的窗口中对着VBAproject点右键->插入->模块 下面会出现一个名为＂模块1＂,点击在右边的空白栏中粘贴以下内容:Function getpychar(char) tmp = 65536 + Asc(char) If (tmp >= 45217 And ...
余姚市18727214720： 从excel中如何提取名字里每个拼音的首个英文字母 例如,zhang san fong 会变成 zsf - ？
箕倩美加： 有一个比较笨的办法. 用数据-分列. 把zhang san fong 从一个单元格分到三个单元格.然后用left函数提取首位字母,最后把首位字母有 & 连字符 连接到一起.最后,吐槽一下,你的普通发太烂了.
余姚市18727214720： Excel如何用函数提取首字 - ？
箕倩美加： G3=left(A3) 下拉即可
余姚市18727214720： 提取表格中文字的首字母 - ？
箕倩美加： 你先用函数mid提取中文文字,再通过我找的别人提取中文字首字母的方法 先定义名称:插入-名称-定义 拼音={＂＂,＂＂;＂吖＂,＂A＂;＂八＂,＂B＂;＂嚓＂,＂C＂;＂咑＂,＂D＂;＂鵽＂,＂E＂;＂发＂,＂F＂;＂猤＂,＂G...
余姚市18727214720： EXCEL中实现汉字转拼音首字码？
箕倩美加： 我再发你一遍好啦, Public Function SuperPY(ByVal vText As Variant) As String Application.Volatile Dim strResult As String Dim lStart As Long Dim sTemp As String On Error Resume Next For lStart = 1 To Len(vText) sTemp = VBA.StrConv(Mid(...
