精华内容
下载资源
问答
  • http://zhidao.baidu.com/question/104836508.html汉字中还包含英文字母或数字,英文或数字部分也要返回。比如:中国航天6号a返回应为:ZGHT6Ha下面是一个VBA自定义函数,按ALT+F11,插入模块,右面窗口粘贴...
    http://zhidao.baidu.com/question/104836508.html

    汉字中还包含英文字母或数字,英文或数字部分也要返回。
    比如:中国航天6号a
    返回应为:ZGHT6Ha

    下面是一个VBA自定义函数,按ALT+F11,插入模块,在右面窗口中粘贴下面代码。
    若A1内容为 中国航天6号a,则在某空白格中输入:=hztopy(A1) 即可

    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(hzstring))
      pystring = ""
      For hzi = 1 To hzpysum
        hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))
        Select Case hzpyhex
          Case &HB0A1 To &HB0C4: pystring = pystring + "a"
          Case &HB0C5 To &HB2C0: pystring = pystring + "b"
          Case &HB2C1 To &HB4ED: pystring = pystring + "c"
          Case &HB4EE To &HB6E9: pystring = pystring + "d"
          Case &HB6EA To &HB7A1: pystring = pystring + "e"
          Case &HB7A2 To &HB8C0: pystring = pystring + "f"
          Case &HB8C1 To &HB9FD: pystring = pystring + "g"
          Case &HB9FE To &HBBF6: pystring = pystring + "h"
          Case &HBBF7 To &HBFA5: pystring = pystring + "j"
          Case &HBFA6 To &HC0AB: pystring = pystring + "k"
          Case &HC0AC To &HC2E7: pystring = pystring + "l"
          Case &HC2E8 To &HC4C2: pystring = pystring + "m"
          Case &HC4C3 To &HC5B5: pystring = pystring + "n"
          Case &HC5B6 To &HC5BD: pystring = pystring + "o"
          Case &HC5BE To &HC6D9: pystring = pystring + "p"
          Case &HC6DA To &HC8BA: pystring = pystring + "q"
          Case &HC8BB To &HC8F5: pystring = pystring + "r"
          Case &HC8F6 To &HCBF9: pystring = pystring + "s"
          Case &HCBFA To &HCDD9: pystring = pystring + "t"
          Case &HEDC5: pystring = pystring + "t"
          Case &HCDDA To &HCEF3: pystring = pystring + "w"
          Case &HCEF4 To &HD1B8: pystring = pystring + "x"
          Case &HD1B9 To &HD4D0: pystring = pystring + "y"
          Case &HD4D1 To &HD7F9: pystring = pystring + "z"
          Case Else
            pystring = pystring + Mid(hzstring, hzi, 1)
        End Select
      Next
      hztopy = pystring
    End Function

    <script>window._bd_share_config={"common":{"bdSnsKey":{},"bdText":"","bdMini":"2","bdMiniList":false,"bdPic":"","bdStyle":"0","bdSize":"16"},"share":{}};with(document)0[(getElementsByTagName('head')[0]||body).appendChild(createElement('script')).src='http://bdimg.share.baidu.com/static/api/js/share.js?v=89860593.js?cdnversion='+~(-new Date()/36e5)];</script>
    阅读(3313) | 评论(0) | 转发(0) |
    给主人留下些什么吧!~~
    评论热议
    展开全文
  • excel中提取中文拼音

    万次阅读 2015-03-23 17:24:25
    在工作时,有时候会用到汉语拼音,本文讲述如何在Excel中通过vba程序提取汉字的拼音。

    概述:在工作时,有时候会用到汉语拼音,本文讲述如何在Excel中通过vba程序提取汉字的拼音。


    1、alt+F11调出vba编写窗口



    2、新建——模块



    3、粘贴以下代码

    Function PinYin2(Hz As String)
        Dim PinMa As String
        Dim MyPinMa As Variant
        Dim Temp As Integer, i As Integer, j As Integer
        PinMa = "a,20319,ai,20317,an,20304,ang,20295,ao,20292,"
        PinMa = PinMa & "ba,20283,bai,20265,ban,20257,bang,20242,bao,20230,bei,20051,ben,20036,beng,20032,bi,20026,bian,20002,biao,19990,bie,19986,bin,19982,bing,19976,bo,19805,bu,19784,"
        PinMa = PinMa & "ca,19775,cai,19774,can,19763,cang,19756,cao,19751,ce,19746,ceng,19741,cha,19739,chai,19728,chan,19725,chang,19715,chao,19540,che,19531,chen,19525,cheng,19515,chi,19500,chong,19484,chou,19479,chu,19467,chuai,19289,chuan,19288,chuang,19281,chui,19275,chun,19270,chuo,19263,ci,19261,cong,19249,cou,19243,cu,19242,cuan,19238,cui,19235,cun,19227,cuo,19224,"
        PinMa = PinMa & "da,19218,dai,19212,dan,19038,dang,19023,dao,19018,de,19006,deng,19003,di,18996,dian,18977,diao,18961,die,18952,ding,18783,diu,18774,dong,18773,dou,18763,du,18756,duan,18741,dui,18735,dun,18731,duo,18722,"
        PinMa = PinMa & "e,18710,en,18697,er,18696,"
        PinMa = PinMa & "fa,18526,fan,18518,fang,18501,fei,18490,fen,18478,feng,18463,fo,18448,fou,18447,fu,18446,"
        PinMa = PinMa & "ga,18239,gai,18237,gan,18231,gang,18220,gao,18211,ge,18201,gei,18184,gen,18183,geng,18181,gong,18012,gou,17997,gu,17988,gua,17970,guai,17964,guan,17961,guang,17950,gui,17947,gun,17931,guo,17928,"
        PinMa = PinMa & "ha,17922,hai,17759,han,17752,hang,17733,hao,17730,he,17721,hei,17703,hen,17701,heng,17697,hong,17692,hou,17683,hu,17676,hua,17496,huai,17487,huan,17482,huang,17468,hui,17454,hun,17433,huo,17427,"
        PinMa = PinMa & "ji,17417,jia,17202,jian,17185,jiang,16983,jiao,16970,jie,16942,jin,16915,jing,16733,jiong,16708,jiu,16706,ju,16689,juan,16664,jue,16657,jun,16647,"
        PinMa = PinMa & "ka,16474,kai,16470,kan,16465,kang,16459,kao,16452,ke,16448,ken,16433,keng,16429,kong,16427,kou,16423,ku,16419,kua,16412,kuai,16407,kuan,16403,kuang,16401,kui,16393,kun,16220,kuo,16216,"
        PinMa = PinMa & "la,16212,lai,16205,lan,16202,lang,16187,lao,16180,le,16171,lei,16169,leng,16158,li,16155,lia,15959,lian,15958,liang,15944,liao,15933,lie,15920,lin,15915,ling,15903,liu,15889,long,15878,lou,15707,lu,15701,lv,15681,luan,15667,lue,15661,lun,15659,luo,15652,"
        PinMa = PinMa & "ma,15640,mai,15631,man,15625,mang,15454,mao,15448,me,15436,mei,15435,men,15419,meng,15416,mi,15408,mian,15394,miao,15385,mie,15377,min,15375,ming,15369,miu,15363,mo,15362,mou,15183,mu,15180,"
        PinMa = PinMa & "na,15165,nai,15158,nan,15153,nang,15150,nao,15149,ne,15144,nei,15143,nen,15141,neng,15140,ni,15139,nian,15128,niang,15121,niao,15119,nie,15117,nin,15110,ning,15109,niu,14941,nong,14937,nu,14933,nv,14930,nuan,14929,nue,14928,nuo,14926,"
        PinMa = PinMa & "o,14922,ou,14921,"
        PinMa = PinMa & "pa,14914,pai,14908,pan,14902,pang,14894,pao,14889,pei,14882,pen,14873,peng,14871,pi,14857,pian,14678,piao,14674,pie,14670,pin,14668,ping,14663,po,14654,pu,14645,"
        PinMa = PinMa & "qi,14630,qia,14594,qian,14429,qiang,14407,qiao,14399,qie,14384,qin,14379,qing,14368,qiong,14355,qiu,14353,qu,14345,quan,14170,que,14159,qun,14151,"
        PinMa = PinMa & "ran,14149,rang,14145,rao,14140,re,14137,ren,14135,reng,14125,ri,14123,rong,14122,rou,14112,ru,14109,ruan,14099,rui,14097,run,14094,ruo,14092,"
        PinMa = PinMa & "sa,14090,sai,14087,san,14083,sang,13917,sao,13914,se,13910,sen,13907,seng,13906,sha,13905,shai,13896,shan,13894,shang,13878,shao,13870,she,13859,shen,13847,sheng,13831,shi,13658,shou,13611,shu,13601,shua,13406,shuai,13404,shuan,13400,shuang,13398,shui,13395,shun,13391,shuo,13387,si,13383,song,13367,sou,13359,su,13356,suan,13343,sui,13340,sun,13329,suo,13326,"
        PinMa = PinMa & "ta,13318,tai,13147,tan,13138,tang,13120,tao,13107,te,13096,teng,13095,ti,13091,tian,13076,tiao,13068,tie,13063,ting,13060,tong,12888,tou,12875,tu,12871,tuan,12860,tui,12858,tun,12852,tuo,12849,"
        PinMa = PinMa & "wa,12838,wai,12831,wan,12829,wang,12812,wei,12802,wen,12607,weng,12597,wo,12594,wu,12585,"
        PinMa = PinMa & "xi,12556,xia,12359,xian,12346,xiang,12320,xiao,12300,xie,12120,xin,12099,xing,12089,xiong,12074,xiu,12067,xu,12058,xuan,12039,xue,11867,xun,11861,"
        PinMa = PinMa & "ya,11847,yan,11831,yang,11798,yao,11781,ye,11604,yi,11589,yin,11536,ying,11358,yo,11340,yong,11339,you,11324,yu,11303,yuan,11097,yue,11077,yun,11067,"
        PinMa = PinMa & "za,11055,zai,11052,zan,11045,zang,11041,zao,11038,ze,11024,zei,11020,zen,11019,zeng,11018,zha,11014,zhai,10838,zhan,10832,zhang,10815,zhao,10800,zhe,10790,zhen,10780,zheng,10764,zhi,10587,zhong,10544,zhou,10533,zhu,10519,zhua,10331,zhuai,10329,zhuan,10328,zhuang,10322,zhui,10315,zhun,10309,zhuo,10307,zi,10296,zong,10281,zou,10274,zu,10270,zuan,10262,zui,10260,zun,10256,zuo,10254"
        MyPinMa = Split(PinMa, ",")
         
        For i = 1 To Len(Hz)
        Temp = Asc(Mid(Hz, i, 1))
            If Temp < 0 Then
              Temp = Abs(Temp)
              For j = 791 To 1 Step -2
                  If Temp <= Val(MyPinMa(j)) Then
                      PinYin2 = PinYin2 & MyPinMa(j - 1) & ""
                      Exit For
                  End If
              Next
            End If
        Next
        PinYin2 = Trim(PinYin2)
    End Function
    说明:代码来自网络


    4、关闭VBA窗口,调用

    在cell中输入下面公式即可。


    完成后,效果如下:




    展开全文
  • EXCEL表格单元格中包含数字...Function求数字和字母(对象 As String) '文本与数字混杂中提取数字和字母Dim myRegSet myReg = CreateObject("vbscript.Regexp")myReg.Global = TruemyReg.Pattern = "[\u4e00-\u9fa5...

    EXCEL表格单元格中包含数字英文和汉字,如何自动去掉汉字,保留英文和数字

    Function 求数字和字母(对象 As String) '在文本与数字混杂中提取数字和字母
       Dim myReg
       Set myReg = CreateObject("vbscript.Regexp")
       myReg.Global = True
       myReg.Pattern = "[\u4e00-\u9fa5]"
       求数字和字母 = myReg.Replace(对象, "")
       Set myReg = Nothing
    End Function
    ==================

    excel中,可以将一列单元格中的汉字/英文去掉,只留下数字吗?

    Function 求数字(对象 As String) '在文本与数字混杂中提取数字 
    Dim myReg
    Set myReg = CreateObject("vbscript.Regexp")
    myReg.Global = True
    myReg.Pattern = "[^\d/+]"
    求数字 = myReg.Replace(对象, "")
    Set myReg = Nothing
    End Function

    转载于:https://www.cnblogs.com/jiaotashidi/p/5973927.html

    展开全文
  • 本工具可以按一个关键字、多个关键字或汉字描述的条件进行查找,展示出整行信息,支持提取本行、上几行、下几行的信息到新的Excel文件 工具地址:www.excelfb.com 一、提取符合条件的行 工具位置如下: ...

    如何从多个EXCEL批量提取符合条件的多行数据或指定行的数据----提取数据的绿色工具Excelfb

          本文介绍的工具可以按一个关键字、多个关键字或汉字描述的条件进行查找,展示出整行信息,支持提取本行、上几行、下几行的信息到新的Excel文件中。同时包含指定行的提取、指定列的提取工具。

         工具地址:www.excelfb.com 

    注意要使用谷歌浏览器

    一、提取符合条件的行

           工具位置如下:

            

       第一次打开,加载时间在10s左右

       工具打开如下图所示:

       1、批量查询某个关键字

              第一步,选中搜索这个字符串

             第二步,选择查询的Excel文件,到文件夹中,Ctrl A ,本文件夹下的文件全选

             第三步,填入查询的关键字,点击开始查找,即可显示出查找的内容的整行数据,操作界面如下图

          第四步,如果需要导出查询结果到新的Excel,点击 导出查询结果,前几列分别是Excel文件名,Sheet名,所在行号,如果不需要可以自己删除列

     

      2、批量查询多个关键字---也可以使用3按条件查询

          第一步,选中按这个正则式搜索

         第二步,选择查询的Excel文件,到文件夹中,Ctrl A ,本文件夹下的文件全选

        第三步,填入查询的关键字,多个用"|"隔开,点击开始查找,操作界面如下图

     

     3、按条件查询

       

          第一步,选中按多列条件搜索

         第二步,选择查询的Excel文件,到文件夹中,Ctrl A ,本文件夹下的文件全选

        第三步,填入查询的条件,查询条件不会写,没事,有智能提示,如下图---不是A格输入后自己改一下,例如自己改成B格

        支持的条件写法示例如下:

    满足这一个(A格 = 100)

    同时满足(A格 = "小明" , B格 > 20 , C格 的文字中包含 "xx", (A格+B格)*D格/E格 >= 100.01 )

    满足任何一个(A格 > 20 , B格 不等于 "xx值", 同时满足(A格 > 20, E格 = "5月" ) )

    同时满足( A格 的文字组合上 B格 = C格, 满足任何一个(A格 > 20 , B格 不等于 "xx值") )

     

     

    二、批量提取符合条件的行的上几行下几行数据

        对于以上查询出的结果,如果要看或者提取满足条件的上几行或下几行数据,操作如下:

       把 满足搜索条件的当前行 勾选 去掉

          勾选  满足条件的行的下   几 行或上几行,  如果都需要就都勾选上,需要哪些勾选哪些,填入行数,点击 开始查找

     

    三、批量提取符合条件的上面第几行或下面第几行数据

         操作如下图所示

     把 满足搜索条件的当前行 勾选 去掉 

    勾选  满足条件行的下面第   几 行 或 上面第几行数据  如果都需要就都勾选上,需要哪些勾选哪些,填入行数,点击 开始查找

       

     

    四、批量提取指定行的数据

          提取指定行的数据,使用的功能就不是上面那个了,需要使用合并功能,工具位置如下,使用批量合并功能

         

    工具界面如下: 如此聪慧睿智的你,一看界面应该就知道怎使用了,我也就不啰嗦了

     

    五、多个Excel批量提取指定列的数据

         提取指定列的数据,工具地址如下:

    操作使用如下图:  提取哪列就填写那列,多列用“,”隔开,提取的列数据依次追加排列到新的Excel文件中。

     

     

     

    展开全文
  • 使用Excel时,有时需要查出相应符合条件的信息行(从一个文件或多个文件),导出来进行分析,那么如何方便快速来做这个事情呢? 需要使用复杂的工具,需要编写vba?好了这边办法都太麻烦,有一现成的方法如下...
  • EXCEL函数公式集

    热门讨论 2010-03-16 03:26:38
    如何在EXCEL中快速定位最后一行数据 用SUN函数快速求和 在Excel中快速查看所有工作表公式 在Excel中设置行间距 怎样同时改变多行行高 快速换行 让文本换行 在Excel中行列快速转换 将原有列中的内容倒置过来 快速回到...
  • 如何在EXCEL中快速定位最后一行数据 用SUN函数快速求和 在Excel中快速查看所有工作表公式 在Excel中设置行间距 怎样同时改变多行行高 快速换行 让文本换行 在Excel中行列快速转换 将原有列中的内容倒置过来 快速回到...
  • 【批量导入图片】 将指定文件夹或包含子文件夹中所有图片瞬间(也可以按对应名称)按指定图片大小导入EXCEL中。允许一次性多图片格式(*.JPG/*.GIF/*.BMP/*.PNG),且支持模糊与非模糊方式导入图片,还可以导入的...
  • delphi 开发经验技巧宝典源码

    热门讨论 2010-08-12 16:47:23
    0222 把Excel中的数据保存到数据库中 147 0223 怎样弹出ConnectionString设置页 148 0224 利用ADO获取DELETE后所影响的记录数 148 7.3 业务实现数据处理技术 149 0225 随机产生中奖号码 149 0226 使用...
  • 0222 把Excel中的数据保存到数据库中 147 0223 怎样弹出ConnectionString设置页 148 0224 利用ADO获取DELETE后所影响的记录数 148 7.3 业务实现数据处理技术 149 0225 随机产生中奖号码 149 0226 使用...
  • 0222 把Excel中的数据保存到数据库中 147 0223 怎样弹出ConnectionString设置页 148 0224 利用ADO获取DELETE后所影响的记录数 148 7.3 业务实现数据处理技术 149 0225 随机产生中奖号码 149 0226 使用...
  • 0222 把Excel中的数据保存到数据库中 147 0223 怎样弹出ConnectionString设置页 148 0224 利用ADO获取DELETE后所影响的记录数 148 7.3 业务实现数据处理技术 149 0225 随机产生中奖号码 149 0226 使用...
  • 0222 把Excel中的数据保存到数据库中 147 0223 怎样弹出ConnectionString设置页 148 0224 利用ADO获取DELETE后所影响的记录数 148 7.3 业务实现数据处理技术 149 0225 随机产生中奖号码 149 0226 使用...
  • 0222 把Excel中的数据保存到数据库中 147 0223 怎样弹出ConnectionString设置页 148 0224 利用ADO获取DELETE后所影响的记录数 148 7.3 业务实现数据处理技术 149 0225 随机产生中奖号码 149 0226 使用...
  • C#编程经验技巧宝典

    热门讨论 2008-06-01 08:59:33
    79 <br>0115 如何判断是否为数字 79 <br>0116 如何在字符串查找指定字符 79 <br>0117 如何在字符串中用一子串替换另一子串 80 <br>0118 将新字符串添加到已有字符串 80 <br>0119 如何在...
  • 实例034 使用goto语句数组搜索指定图书 42 第3章 字符串处理技术 44 3.1 字符及字符串转换 45  实例035 将字母全部转换为大写或小写 45  实例036 字母与ASCII码的转换 46  实例037 汉字与区位码的...
  • 本书是第I卷,以开发人员项目开发经常遇到的问题和必须掌握的技术为中心,介绍了应用C#进行程序开发各个方面的知识和技巧,主要包括C#编程基础、Windows窗体、控件应用、文件操作、C#与Office高效开发、图形...
  • 本书是第I卷,以开发人员项目开发经常遇到的问题和必须掌握的技术为中心,介绍了应用C#进行程序开发各个方面的知识和技巧,主要包括C#编程基础、Windows窗体、控件应用、文件操作、C#与Office高效开发、图形...
  • 本书是第I卷,以开发人员项目开发经常遇到的问题和必须掌握的技术为中心,介绍了应用C#进行程序开发各个方面的知识和技巧,主要包括C#编程基础、Windows窗体、控件应用、文件操作、C#与Office高效开发、图形...
  • 实例034 使用goto语句数组搜索指定图书 42 第3章 字符串处理技术 44 3.1 字符及字符串转换 45 实例035 将字母全部转换为大写或小写 45 实例036 字母与ASCII码的转换 46 实例037 汉字与区位码的转换 48 实例038 ...
  • 实例228 从指定URL中提取文件名 9.3 日期时间处理 实例229 计算两个日期相差的天数 实例230 计算两个日期相差的小时数 实例231 计算某一天是星期几 实例232 显示长日期格式的系统时间 实例233 实时显示系统...
  • 实例228 从指定URL中提取文件名 9.3 日期时间处理 实例229 计算两个日期相差的天数 实例230 计算两个日期相差的小时数 实例231 计算某一天是星期几 实例232 显示长日期格式的系统时间 实例233 实时显示系统...
  • 实例133 如何在图片上平滑移动文字 165 3.7 图像动画 167 实例134 动画背景窗体 167 实例135 随鼠标移动的图像 169 实例136 十字光标定位 170 实例137 抓取鼠标形状 171 3.8 图像识别 172 实例138 ...
  • 实例047 如何在数组插入数组元素 实例048 如何删除数组元素 实例049 利用数组实现矩阵转换 实例050 对数组进行二分查找 3.2 数组的应用 实例051 利用数组统计文字段落数 实例052 利用数组随机抽取幸运观众 ...
  • 实例047 如何在数组插入数组元素 实例048 如何删除数组元素 实例049 利用数组实现矩阵转换 实例050 对数组进行二分查找 3.2 数组的应用 实例051 利用数组统计文字段落数 实例052 利用数组随机抽取幸运观众 ...
  • Delphi程序开发范例宝典(第3版)》.part1 《delphi程序开发范例宝典(第3版)》全面介绍了delphi程序开发所用到的技术和技巧,共分19章,内容包括窗体与界面设计、控件应用、...实例267 从sql server数据库中提取多媒体...
  • 实例133 如何在图片上平滑移动文字 170 3.7 图像动画 172 实例134 动画背景窗体 172 实例135 随鼠标移动的图像 173 实例136 十字光标定位 175 实例137 抓取鼠标形状 176 3.8 图像识别 177 实例...

空空如也

空空如也

1 2
收藏数 35
精华内容 14
关键字:

如何在excel中提取汉字