如何提取字符串中的前两个字符？

dumw

doitbest 发表于 2014-6-4 16:10
自定义函数

我想问一下lef的解释是什么 我找不到。谢谢

everbest2015

Function tqzf(r As Range)
    Dim ar, x, dic As Object
    Set dic = CreateObject("scripting.dictionary")
    If Len(r) > 0 Then
        ar = Split(r, ";  ")
        ReDim br(0 To UBound(ar))
        For Each x In ar
            x = Left(x, 2)
            dic(x) = ""
        Next
    End If
    tqzf = Join(dic.keys, ";")
    Set dic = Nothing
End Function

ggmmlol

everbest2015 发表于 2018-8-22 20:16
Function tqzf(r As Range)
    Dim ar, x, dic As Object
    Set dic = CreateObject("scripting.dicti ...

与其编写非通用型的自定义函数，不如就像5楼那样编写一个Sub过程。

xwklm

很实用，学习了。