excel中以指定分隔符从右往左截取字符&多重判断

从A串中提取从"."开始的字符串B，可以使用find函数来对"."的首次出现进行定位，这类似于各种语言中的indexOf功能。find是从左往右查找的，在EXCEL中并没有从右往左查找，类似lastIndexOf的函数。

在EXCEL想要从右往左截取字符，可使用公式：TRIM(RIGHT(SUBSTITUTE(A1,".",REPT(" ",LEN(A1))),LEN(A1)))。

例：已知A1=http://www.163.com/sports/Arsenal.html，要获取Arsenal.html字符串。

公式=TRIM(RIGHT(SUBSTITUTE(A1,"/",REPT(" ",LEN(A1))),LEN(A1)))。

解释:
1. REPT(" ",LEN(A1))的意思是得到一空格串，长度为A1的长度。
    REPT函数可可以按照定义的次数重复现实文本，相当于复制文本。

2. SUBSTITUTE(A1,"/",REPT(" ",LEN(A1)))
     将A1中的字符"/"用多个空格串(第1步所得)来替换。此时，可获得的文本如下：

http:                                                                            www.163.com                                      sports                                      Arsenal.html

   SUBSTITUTE(text,old_text,new_text,instance_num) 函数是在文本字符串中用 new_text 替代 old_text。

3. 在以指定空格串代替所有分隔符后，就可以使用Right函数，从右往左取子串了。即
    =RIGHT(SUBSTITUTE(A2,"/",REPT(" ",LEN(A2))),LEN(A2))
    此时得到的字串如:

Arsenal.html

 

4. 最后使用Trim函数将空格删除，可得到结果:Arsenal.html
    =TRIM(RIGHT(SUBSTITUTE(A2,"/",REPT(" ",LEN(A2))),LEN(A2)))

 

来源：http://blog.sina.com.cn/s/blog_67532f7c01019gvk.html

 

面对多重判断，excel有四法

 

一般来说，我们经常会碰到这样的问题，即

 

需要按照这张mapping表进行数值判断，下面有四种方法：

 

1 经典法：if多重判断

这个就不用多说了，一般来说，我们这个函数一般写为：

 

当然这里面and与函数有点多余，所以我们也可以写为

 

当时这个也有缺点，因为经常很多人会把临界点搞错，比如A1=5000的情况是D，还是C，所以会经常弄混的。最重要的，多重只能到7重，而且重数多了，if会写的非常乱

 

2 vlookup函数妙用法

啊，vlookup函数呀，这好像和多重判断不搭界呀，其实，vlookup函数有精确匹配和近似匹配，我们一般用的是精确匹配，而这里用的是近似匹配（原理在于近似匹配采用的是返回小于 lookup_value 的最大数值，所以一定要升序排列哦）。

 

 

而这里函数写为

=VLOOKUP(E2,B2:D5,3,TRUE)

就能返回各个相应的值，这个比if函数简单，而且可以支持7重以上。

但是缺点是一旦不是>=,而是>的下限形式，会比较麻烦。

 

3 VBA进阶1：select case函数

大家去查查外面的VBA书籍，这个说的比较多，举个例子吧

我要对所有的上市公司进行判断，要按照利润区间分为

 

这个大家就不要用if写了，9重的if第一不支持（号称excel 2007 if函数只支持7重），第二即使写出来，过了一段时间，自己写的自己也不认识了。所以这边用VBA写了一个例子

Function profitrank(income) As String

Select Case income

    Case Is <= 0

        profitrank = "<=0"

    Case Is <= 5000

        profitrank = "0-5千万"

    Case Is <= 10000

        profitrank = "5千万-1亿"

    Case Is <= 20000

        profitrank = "1亿-2亿"

    Case Is <= 30000

        profitrank = "2亿-3亿"

    Case Is <= 40000

        profitrank = "3亿-4亿"

    Case Is <= 50000

        profitrank = "4亿-5亿"

    Case Is <= 100000

        profitrank = "5亿-10亿"

    Case Else

        profitrank = ">10亿"

    End Select

End Function

这个函数，我定义为profitrank函数，这个大家可以copy到自己的excel中使用

 

4 VBA进阶2：switch函数

用过access的人都知道，它里面的switch比较好用，语法就是

Switch(条件1,”结论1”,条件2,”结论2”,条件3,”结论3”,…..)

比if函数好多了，可惜的是excel工作表竟然不知道switch函数，但是老天有眼，excel的VBA函数却可以支持switch，所以有些高手就做了些为国为名的好事（这里得感谢外国高手们，这帮人呀，牛）

其函数可以直接写作

=Switch2(A1<1000,"D",A1<5000,"C",A1<10000,"B",TRUE,"A")

 

比较if函数，是不是即简洁又清晰

 

 

目前代码如下：

Function Switch2(Test1 As String, Result1 As String, _
Optional Test2 As String, Optional Result2 As String, _
Optional Test3 As String, Optional Result3 As String, _
Optional Test4 As String, Optional Result4 As String, _
Optional Test5 As String, Optional Result5 As String, _
Optional Test6 As String, Optional Result6 As String, _
Optional Test7 As String, Optional Result7 As String, _
Optional Test8 As String, Optional Result8 As String, _
Optional Test9 As String, Optional Result9 As String, _
Optional Test10 As String, Optional Result10 As String, _
Optional Test11 As String, Optional Result11 As String, _
Optional Test12 As String, Optional Result12 As String, _
Optional Test13 As String, Optional Result13 As String, _
Optional Test14 As String, Optional Result14 As String)

Switch2 = Switch(Test1, Result1, _
Test2, Result2, _
Test3, Result3, _
Test4, Result4, _
Test5, Result5, _
Test6, Result6, _
Test7, Result7, _
Test8, Result8, _
Test9, Result9, _
Test10, Result10, _
Test11, Result11, _
Test12, Result12, _
Test13, Result13, _
Test14, Result14)
End Function

这个大家也可以copy到excel中，非常方便，目前代码里面是支持14个条件的，大家可以任意扩充）

 

5 结论：if如果做多重判断，是不方便了，如果考虑到简单实用，建议用vlookup，如果还想多做VBA的学习，那还是用后面的两个VBA方法。

来源：http://blog.sina.com.cn/s/blog_603d40f70100esta.html

 

其他：1、excel自定义函数添加，在Excel工作表界面下按<ALT+F11>组合键打开VBA编辑器，单击“插入”→“模块”，并在右边的代码窗口输入自定义函数的程序代码。单击窗口右上角的“关闭”按钮关闭VBA编辑器，返回excel工作表界面就可使用。

          来源：http://www.ittribalwo.com/article/1274.html

 

          2、在使用公式或函数后，为何双击单元格右下角“十”字，没有作用？

                 如果因为特殊原因 不可以双击填充 则选择要填充的区域  按下ctrl+D 进行填充。

          来源：http://www.excelpx.com/thread-329199-1-1.html