求教！Excel表格中，如何提取D列中文字的首字母到C列？
求教！Excel表格中，如何提取D列中文字的首字母到C列？
这两天弄Excel表格，需要填写药品名称的助记词，方便查询。由于数量太多，手工填写工作量太大，特在此求教。
大家看图，首字母是在表格的C列，药品中文名在表格的D列。要怎么样可以批量地把D列中的药品名的首字母对应地提取到C列中去？&
急啊~~麻烦各位好心的友友教下啦。在网站上搜索的看不懂。& 可不可以弄个详细步骤？
本来想用VBA 编程给你搞定，后来一想excel有个类似功能的函数！ 于是用公式搞定比较简单！ 直接在C1单元格输入公式“=LEFT(D1,1)”然后往下托就OK！ 如果你想只要数值可以选择性粘贴！ 简单吧！如果有什么问题不明白可以加我QQ：
不好意思，刚才看错了你的问题！
下面从新回答！
Option ExplicitPublic Function py(mystr As String) As String&&& Dim i As Long&&& i = Asc(mystr)&&& Select Case i&&&&&&& Case -20319 To -20284: py = "A"&&&&&&& Case -20283 To -19776: py = "B"&&&&&&& Case -19775 To -19219: py = "C"&&&&&&& Case -19218 To -18711: py = "D"&&&&&&& Case -18710 To -18527: py = "E"&&&&&&& Case -18526 To -18240: py = "F"&&&&&&& Case -18239 To -17923: py = "G"&&&&&&& Case -17922 To -17418: py = "H"&&&&&&& Case -17417 To -16475: py = "J"&&&&&&& Case -16474 To -16213: py = "K"&&&&&&& Case -16212 To -15641: py = "L"&&&&&&& Case -15640 To -15166: py = "M"&&&&&&& Case -15165 To -14923: py = "N"&&&&&&& Case -14922 To -14915: py = "O"&&&&&&& Case -14914 To -14631: py = "P"&&&&&&& Case -14630 To -14150: py = "Q"&&&&&&& Case -14149 To -14091: py = "R"&&&&&&& Case -14090 To -13319: py = "S"&&&&&&& Case -13318 To -12839: py = "T"&&&&&&& Case -12838 To -12557: py = "W"&&&&&&& Case -12556 To -11848: py = "X"&&&&&&& Case -11847 To -11056: py = "Y"&&&&&&& Case -11055 To -10247: py = "Z"&&&&&&& Case Else: py = mystr&&& End SelectEnd FunctionFunction HZP(strn As String)&&& Dim i As Integer&&& For i = 1 To Len(strn)&&&&&&& HZP = HZP & py(Mid(strn, i, 1))&&& Next iEnd Function
上面的代码新建VBA复制进去！
C1单元格中输入& =HZP(a1)&&& 公式调用就行了，然后往下托！
其他回答 (2)
这个不行，得你自己手动建立这个数据库
那请问需要怎么弄呢 ？具体些可以么？
我的意思是说你得自己手动填写好药品的名字，或者你上网搜索别人已经打好的数据填写上去。
代码较多，有自定义函数。
这个吗？&& 网上找的。& 不过看不懂&& 那个什么模块不知道从哪里找把下面的代码复制在一个VBE模块里面，然后在工作表里面像使用其他函数一样使用HZP（）函数就可以了
比如A1 是 中国人
则在B1输入公式： =HZP(a1) 就会显示结果 ZGR
还不明白的话 HI我
Option Explicit
Public Function py(mystr As String) As String
Dim i As Long
i = Asc(mystr)
Select Case i
Case -20319 To -20284: py = "A"
Case -20283 To -19776: py = "B"
Case -19775 To -19219: py = "C"
Case -19218 To -18711: py = "D"
Case -18710 To -18527: py = "E"
Case -18526 To -18240: py = "F"
Case -18239 To -17923: py = "G"
Case -17922 To -17418: py = "H"
Case -17417 To -16475: py = "J"
Case -16474 To -16213: py = "K"
Case -16212 To -15641: py = "L"
Case -15640 To -15166: py = "M"
Case -15165 To -14923: py = "N"
Case -14922 To -14915: py = "O"
Case -14914 To -14631: py = "P"
Case -14630 To -14150: py = "Q"
Case -14149 To -14091: py = "R"
Case -14090 To -13319: py = "S"
Case -13318 To -12839: py = "T"
Case -12838 To -12557: py = "W"
Case -12556 To -11848: py = "X"
Case -11847 To -11056: py = "Y"
Case -11055 To -10247: py = "Z"
Case Else: py = mystr
End Select
End Function
Function HZP(strn As String)
Dim i As Integer
For i = 1 To Len(strn)
HZP = HZP & py(Mid(strn, i, 1))
End Function
可以，自己试试吧。
哥，我不知道怎么试啊``可以具体的教下么？
要写在代码中，按alt+F11两键，建一个模块，将代码放在这个模块中。然后在单元格中引用
一两句话说不清楚的。
相关知识等待您来回答
微软专区领域专家
& &SOGOU - 京ICP证050897号excel表格 一个数减去（后面多个数的和）的差 简便方式如图，剩余数量=后面一直更新日期的数量的和，求一个简便的计算方式，而不是B=A-(C+D+E+F+……)，这个公式不能在后面增加的日期自动_百度作业帮
excel表格 一个数减去（后面多个数的和）的差 简便方式如图，剩余数量=后面一直更新日期的数量的和，求一个简便的计算方式，而不是B=A-(C+D+E+F+……)，这个公式不能在后面增加的日期自动
excel表格 一个数减去（后面多个数的和）的差 简便方式如图，剩余数量=后面一直更新日期的数量的和，求一个简便的计算方式，而不是B=A-(C+D+E+F+……)，这个公式不能在后面增加的日期自动更新剩余数量
在d2？（3800）的单元格里填写公示：=sum(e2:aaa2)
用SUM函数例=A5-SUM(A1:B4)
剩余数量插入公式=A-（C+D……）这个公式是可以自动更新的。没问题啊！和他们的sum公式没区别的！
=A2-SUM(OFFSET(C2,,,,LOOKUP(1,0/($1:$1""),COLUMN(1:1))-2))Excel表格乘法函数公式
　　在Excel表格中，我们常常会利用Excel公式来统计一些报表或数据等，这时就少不了要用到加、减、乘、除法，在前面我们已经详细的讲解了以及公式使用方法。那么我们又如何利用公式来对一些数据进行乘法计算呢？怎样快速而又方便的来算出结果呢？下面Word联盟就来教大家一步一步的使用Excel乘法公式！
　　我们先从简单的说起吧！首先教大家在A1*B1=C1，也就是说在第一个单元格乘以第二个单元格的积结果会显示在第三个单元格中。
　　1、A1*B1=C1的Excel乘法公式
　　①首先，打开表格，在C1单元格中输入&=A1*B1&乘法公式。
　　②输入完毕以后，我们会发现在 C1 单元格中会显示&0&，当然了，因为现在还没有输入要相乘的数据嘛，自然会显示0了。
　　③现在我们在&A1&和&B1&单元格中输入需要相乘的数据来进行求积，如下图，我分别在A1和B1单元格中输入10和50进行相乘，结果在C1中就会显示出来，等于&500&。
　　上面主要讲解了两个单元格相乘求积的方法，但是在我们平常工作中，可能会遇到更多数据相乘，下面主要说说多个单元格乘法公式运用，如：&A1*B1*C1*D1&=E1。
　　2、中多个单元格相乘的乘法公式
　　①在E1单元格中输入乘法公式&=A1*B1*C1*D1&。
　　②然后依次在A1、B1、C1、D1中输入需要相乘的数据，结果就会显示在&E1&中啦！
　　看看图中的结果是否正确呀！其实，这个方法和上面的差不多，只不过是多了几道数字罢了。
　　因为在工作中不止是乘法这么简单，偶尔也会有一些需要&加减乘除&一起运算的时候，那么当遇到这种混合运算的时候我们应当如何来实现呢？这里就要看你们小学的数学有没学好了。下面让我们一起来做一道小学时的数学题吧！
　　3、Excel混合运算的乘法公式，5加10减3乘2除3等于多少？
　　提示：加=+，减=-，乘=*，除=/。
　　①首先，我们要了解这个公式怎么写，&5+10-3*2/3&这是错误的写法，正确写法应该是&（5+10-3）*2/3&。
　　②好了，知道公式了，我们是不是应该马上来在Excel中的&F1&中输入&=(A1+B1-C1)*D1/E1&。
　　③然后依次在A1、B1、C1、D1、E1中输入需要运算的数据。
　　好了，上面的一些基本乘法公式就已经讲玩了，下面教大家个小技巧，在有多行需要计算的时候该怎么办呢？
　　4、将公式复制到每行或每列
　　①首先用鼠标选中&F1&单元格，直到鼠标变成黑色的十字架的时候，左键按住不动往下拖。
　　②此时，从 F1 到下面的 F2、F3、F4等等，都已经复制了&F1&中的公式，下次你需要运算的时候，直接在前面输入数据，在F2、F3、F4等单元格中就会自动显示运算的结果了。
谢谢 学习了！
度娘简直太棒了
太感谢，终于用到，省时省力
真诚的感谢楼主，是我这个菜鸟得到了启蒙。多谢了。
请问怎么在A1里输入1+2+3+4+5/112+110*50在A2自动等出结果这个函数怎么弄在哪设置
感谢感谢,一目了然.
感谢分享！
楼主好人啊&&给力
嗯啊&&一学就会了
十分感谢你！讲得太好了，简单明了，通俗易懂！
感谢楼主，很实用
上面的楼主谢谢了，实用……
太好了对我帮助很大
楼主辛苦！
你好，你讲的很好，一看就明白了
十分感谢你！讲得太好了，简单明了，通俗易懂！
您好，还有很多问题要问您，qq方便告诉吗？
嗯啊&&一学就会了
可是，我所乘出来的积要复制出来用到另一个表格里怎么不行呢？所得到的数值一旦复制，再黏贴就变成0了。复制后，粘贴的时候选择“选择性粘贴里头的数值”就可以解决了
不错。。让人很快就学会了！
不错，学习学些
多行合并后该怎样求和？
太形象了。好。很好。
感谢！ 讲得很仔细...学到了很多东西！
可是，我所乘出来的积要复制出来用到另一个表格里怎么不行呢？所得到的数值一旦复制，再黏贴就变成0了。
不错，为我解决了不少问题！谢谢！
我X，这么初级的东东还这么多人捧？！
太棒了！让我这个业余计算机爱好者，受益许多。Tanke you!
谢谢啊！我以前是学过，长时间不用，我就忘了，我一看你讲的，我就回了。你比我计算机老师讲的更清楚。
不错！学习机来很容易！谢谢！
很棒啊，一言惊醒梦中人 Excel丢了很多年，现在忘记得差不多了，不过看了这篇Excel乘法函数公式，我一下子就明白了，以后多来几次说不定就可以快速学回来了
终于找到一个可以学习office的网站了，显示很清晰，讲的很到位
谢谢了，讲的这么清晰。
知道是这么做的，不过好像自己忘记鼠标显示小十字架的时候再拉，嗯，谢啦！
谢谢了，可让我好找了些天的函数公式啊，真是感谢啊！！
看了终于明白了，可想好些天，以前一直在函数里找公式，真是谢谢了！！！
看了好多 就这个最专业！一看就懂了！
讲的太好了 一目了然 点醒多少人啊！！
很简单的呀，看了就会了的
说的清楚明了、准确、简单
我想问下，如果我有一个表，其中有一列数字要乘4，有什么简便的方法或函数吗？
讲的真好呢，学会了，多谢老师。
乘数取尾怎么搞？3*8=24取4公式怎么做
输入后要按什么？怎么不会显示0呢？
原来没有像求和公式SUM一样的乘法公式
最新视频教程
点击：7117&&&评论：2
点击：2464&&&评论：0
点击：4264&&&评论：0
点击：700242&&&评论：54
点击：1050914&&&评论：266
点击：179379&&&评论：33
点击：190142&&&评论：30
点击：133260&&&评论：89EXCEL表格的IF函数超过7层，怎么办？_百度知道
EXCEL表格的IF函数超过7层，怎么办？
A7=IF(M7=&F&,O7*$G$343,IF(M7=&LK&,O7*$G$343,IF(M7=&T&,O7*$G$344,IF(M7=&L&,O7*$G$345,IF(M7=&X&,O7*$G$346,IF(M7=&A&,O7*$G$347,IF(M7=&B&,O7*$G$348,IF(M7=&C&,O7*$G$349,IF(M7=&D&,O7*$G$350))))))))) 请问这个IF公式超过了7层，用OFFICE2003有什么办法解决？
我的意思是：单元格M7,有很多个分类，F、T、A、B、C、D……，而根据不同的分类，得出的结果是等于O7乘于相应的比例（每种分类有不同的比率）。希望我的表达能让你们看得懂。
提问者采纳
按你公式改成如下=IF(OR(M7={&F&,&LK&}),G343,IF(M7=&T&,G344,IF(M7=&L&,G345,IF(M7=&X&,G346,IF(M7=&A&,G347,IF(M7=&B&,G348,IF(M7=&C&,G349,IF(M7=&D&,G350,&&))))))))*O7
再缩简=IF(OR(M7={&F&,&LK&}),G343,IF(M7=&T&,G344,IF(M7=&L&,G345,IF(M7=&X&,G346,IF(OR(M7={&A&,&B&,&C&,&D&}),INDIRECT(&G&&346+CODE(M7)-64),&&)))))*O7
提问者评价
谢谢，第一条看懂了，第二条没看懂。{&A&,&B&,&C&,&D&}),INDIRECT(&G&&346+CODE(M7)-64),&&，
来自团队：
其他类似问题
为您推荐：
其他2条回答
可以用自定义名称来解决。另，你的前两个if可以合并为一个，你这两个是用的同一结果）从你的公式看来，可以考虑用vlookup函数试下
我试过用VLOOKUP,可是他不运算结果，只显示公式，我要的结果是有运算后的结果，不同分类有不同的运算比例计算后的结果
你M7对应的G列值是固定的吗？换句话说你的343行以后的这些行，是不是有M7中的字母与G列对应如F列的F343：F350中的数据是不是你M7中的数据？如果是，请用以下函数=VLOOKUP(M7,F343:G350,2,0)*O7这个区域的行数还可以更多，这样就解决了if函数7层的问题了
=IF(ISERR(FIND(LEFT(A4,1),&地墙天洁灯专水土&)),IF(OR(F4=0,F4=&&),&&,MAX(B$1:B3)+1),TEXT(FIND(LEFT(A4,1),&地墙天洁灯专水土&),&[DBNum1]&))
您可能关注的推广
excel表格的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求一份输入凭证会自动生成会计报表，汇总表，T字账等的EXCEL表格的全部流程，发我QQ谢谢前辈们！_百度知道
求一份输入凭证会自动生成会计报表，汇总表，T字账等的EXCEL表格的全部流程，发我QQ谢谢前辈们！
我们公司以前都是代帐的，现在要自己做账，，我们老板同时有一家报社和一个家具厂，现在要我做两边的账，我是会计新手该从何开始呢，请前辈们指点迷津，非常感谢！
提问者采纳
一发邮箱，在附件中。
提问者评价
太感谢了，真心有用
其他类似问题
为您推荐：
excel表格的相关知识
其他1条回答
这个实用，发给你一份，到你QQ邮箱查收。
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁