请选择 进入手机版 | 继续访问电脑版
在线投稿 文字标题 文字标题 文字标题 文字标题 文字标题
切换皮肤
Excel怎么快速提取混合单元格中的中文、英文、数字?
知识改变命运,科技成就未来。Microsoft Excel快速提取混合单元格中的中文、英文、数字,虽然这个Microsoft Excel技巧听起来很“高大上”,但是在实际办公中很少会遇到中文、英文、数字“混合三打”的情况。俗话说得好,行走江湖技多不压身,多一门技术,多一门吃饭的宝贝。废话说的有些多了,接下来就直奔主题吧!
?url=http%3A%2F%2Fdingyue.ws.126.net%2F2020%2F0327%2Fb025c66bj00q7tund000wc000hs00bvm.jpg

Microsoft Excel快速提取混合单元格中的中文、英文、数字详细操作流程:
步骤一:编辑VBA代码。
(1)左键双击打开素材文件【混合单元格.xlsx】Microsoft Excel工作表。
(2)右键单击工作表【混合单元格】后,左键单击右键菜单中的【查看代码(V)】选项,打开【Visual Basic编辑器】。
(3)右键单击【工程资源管理器】窗口的空白位置,将鼠标指针移动至右键菜单中的【插入(N)】选项,然后左键单击二级菜单中的【模块(M)】选项,插入模块。
(4)左键单击选中刚才新建的【模块1】,在右侧代码窗口中键入以下代码,您也可以选择复制粘贴,请注意代码中的标点符号为英文标点符号。
(5)关闭【Visual Basic编辑器】,回到Microsoft Excel操作界面。
8c3f9a48g00q7tune02xnc000sk00lkm.gif
代码区域:
Function MyGet(Srg As String, Optional n As Integer = False)
Dim i As Integer
Dim s, MyString As String
Dim Bol As Boolean
For i = 1 To Len(Srg)
s = Mid(Srg, i, 1)
If n = 1 Then
Bol = Asc(s) < 0
ElseIf n = 2 Then
Bol = s Like "[a-z,A-Z]"
ElseIf n = 0 Then
Bol = s Like "#"
End If
If Bol Then MyString = MyString & s
Next
MyGet = IIf(n = 1 Or n = 2, MyString, Val(MyString))
End Function
步骤二:键入Microsoft Excel函数。
(1)左键单击选中【B2】单元格后,键入函数【=MyGet(A2,1)】后按下回车键,提取【A2】单元格中的中文字符。
(2)左键单击选中【C2】单元格后,键入函数【=MyGet(A2,2)】后按下回车键,提取【A2】单元格中的英文字符。
(3)左键单击选中【D2】单元格后,键入函数【=MyGet(A2,0)】后按下回车键,提取【A2】单元格中的数字。
9930531cg00q7tunh03b1c000sk00lkm.gif
【MyGet】函数
=MyGet(从哪提取,提取什么)
【=MyGet(字符串,0) 】是提取单元格中所有数字。
【=MyGet(字符串,1)】是提取单元格中所有中文字符。
【=MyGet(字符串,2)】是提取单元格中所有英文字符。
【=MyGet(字符串)】是提取单元格中所有的数据。
至此,Microsoft Excel快速提取混合单元格中的中文、英文、数字操作流程已全部结束。知识改变命运,科技成就未来。希望这个小知识能给您的工作和生活带来更多的便捷。


回复

使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则


    Archiver|手机版|小黑屋|齐聚无忧 |网站地图

    Powered by Discuz! X3.4  © 2001-2013 Comsenz Inc.