Excel中用IF函数如何截取我需要的内容?用left,right,mid函数配合if,怎样截取我需要的内容。如图所示,用if函数,根据A列的幢,层,库,座,号,路,来判断,并截图后面的内容;如果没有所判断的条件,则显示为1。因为工作性质,所需要判断的Excel内容达到数万条,请大神指教
解决方案 »
- 虚拟机装win7 32位操作系统BIOS设置问题
- 域名配置求助
- 根据用户ip的不同,可以使不同用户访问同一个域名的不同服务器?
- 用的OA办公系统,各个控件都安装好了,还是有下图提示,求大神解救!!
- 怎么隐藏文件夹扩展名,不是文件!
- win2003不能启动求救
- 为深度学习配置的主机求大神指正
- bat命令判断当前进程中是否存在某exe文件,如果存在,则继续监测判断,如果不存在,则继续执行bat命令
- 关于2008服务器本地用户转为AD域的影响
- Excel无法打开文件,因为文件格式或文件扩展名无效且乱码问题
- windows defender 每个两三天总是被自动关闭 , 需要手工启动
- 用了半年Windows10,没出过问题。。。。
方法一:
对每个字符串从右到左找第一个数字,找到后将连续的数字返回方法二:
按你的要求从右到左找关键字(幢,层,库,座,号,路等),找到后取前面的连续数字返回。
InStrRev 函数可返回一个字符串在另一个字符串中首次出现的位置。搜索从字符串的末端开始,但是返回的位置是从字符串的起点开始计数的。InStrRev 函数可返回下面的值:
如果 string1 为 ""(零长度) - InStr 返回 0
如果 string1 为 Null - InStr 返回 Null
如果 string2 为 "" - InStr 返回 start
如果 string2 为 Null - InStr 返回 Null
如果 string2 没有找到 - InStr 返回 0
如果在 string1 中找到 string2,InStr 返回找到匹配字符串的位置。
如果 start > Len(string1) - InStr 返回 0
Dim b As Object
Application.Volatile
With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "(\d+)(?=[幢|层|库|座|号|路|房|卡])"
Set b = .Execute(a.Value)
If .test(a.Value) Then
房号 = b.Item(b.Count - 1)
Else
房号 = 1
End If
End With
End Function