路疯驰

一路疯驰(沪ICP备15037456号)

博客搜索:

文章分类: 数据管理(18) 商务智能(0) 软件开发(8) 其他(13) Winform(1) 大数据(0)

Excel常用函数

作者:Jason Yang 分类:其他 浏览:

自定义的自己写的,都很简单,也实用。慢慢补充。

也有部分是自带的。


字符处理

字符分割

名称:Field

类型:自定义

用途:取字符串中被分割后指定的域

实例:Field("A_B_CC_D_EE","_",3)

    结果:CC

    解释:将"A_B_CC_D_EE"用"_"分割,分割会有五份,取第3份

源码:

Function Field(source, delimiter, index)
    v_array = Split(source, delimiter)
    Field = v_array(index-1)
End Function


字符替换

名称:SUBSTITUTE

类型:原生

用途:用新字符串替换老字符串

实例:SUBSTIUTE("A_B_CC_D_EE","_"," ")

    结果:A B CC D EE

    解释:将"A_B_CC_D_EE"中的"_"替换为空格


获取重复列表中的唯一值

Public Function getDistinct(s)

    Dim d As Object

    Set d = CreateObject("scripting.dictionary")

    

    arr = Split(s, ",")

    For i = 0 To UBound(arr)

        d(arr(i)) = ""

    Next i

   getDistinct = Join(d.keys, ",")

End Function




L最新评论
    还没有评论!

P发布评论