自定义函数--提取单元格内多个被分开的数字

YZC51

M豆包 发表于 2019-12-6 11:21
Office 2016

应该是2016的问题啦！
我是2007版，没有办法调试！

M豆包

YZC51 发表于 2019-12-6 11:25
应该是2016的问题啦！
我是2007版，没有办法调试！

好的，谢谢啦

YZC51

那就好！不客气！

YZC51

学习老师的代码。谢谢老师！

'http://club.excelhome.net/thread-1296475-1-1.html

Public Function q2b(t) '全角标点符号转半角标点符号
    Dim ARR, BRR, i&
    ARR = Split(", \ . ! ? ; : ' ' "" "" [ ] { } ( )")
    BRR = Split("， 、 。 ！ ？ ； ： ‘ ’ “ ” 【 】 ｛ ｝ （ ）")
    For i = LBound(BRR) To UBound(BRR)
        t = Replace(t, BRR(i), ARR(i))
    Next i
    q2b = t
End Function

YZC51

Public Function sz2bj(t) '全角数字转半角数字
    Dim ARR, BRR, i&
    ARR = Split("0 1 2 3 4 5 6 7 8 9")
    BRR = Split("０ １ ２ ３ ４ ５ ６ ７ ８ ９")
    For i = LBound(BRR) To UBound(BRR)
        t = Replace(t, BRR(i), ARR(i))
    Next i
    sz2bj = t
End Function

summeren

YZC51 发表于 2019-12-6 20:59
学习老师的代码。谢谢老师！

'http://club.excelhome.net/thread-1296475-1-1.html

可以反向替换操作吗？

YZC51

summeren 发表于 2019-12-6 21:38
可以反向替换操作吗？

您好！可以的。

Public Function sz_qb(t, Optional z = 0)  '全角数字互转半角数字
    Dim ARR, BRR, i&
    ARR = Split("0 1 2 3 4 5 6 7 8 9")
    BRR = Split("０ １ ２ ３ ４ ５ ６ ７ ８ ９")
    For i = LBound(BRR) To UBound(BRR)
        If z Then t = Replace(t, ARR(i), BRR(i)) Else t = Replace(t, BRR(i), ARR(i))
    Next i
    sz_qb = t
End Function

YZC51

Public Function b2q(t) '半角标点符号转全角标点符号
    Dim ARR, BRR, i&
    BRR = Split(", \ . ! ? ; : ' ' "" "" [ ] { } ( )")
    ARR = Split("， 、 。 ！ ？ ； ： ‘ ’ “ ” 【 】 ｛ ｝ （ ）")
    For i = LBound(BRR) To UBound(BRR)
        t = Replace(t, BRR(i), ARR(i))
    Next i
    b2q = t
End Function

summeren

YZC51 发表于 2019-12-6 21:49
Public Function b2q(t) '半角标点符号转全角标点符号
    Dim ARR, BRR, i&
    BRR = Split(", \ . ! ? ...

中间的几个' ' "" "" 是不对的  替换后是 ‘ ‘ ““ ““    。感觉无法判断“”   ‘’

YZC51

Public Function bd_q2b(t, Optional z = 0) '全角标点符号互转半角标点符号
    Dim ARR, BRR, i&
    ARR = Split(", \ . ! ? ; : ' ' "" "" [ ] { } ( )")
    BRR = Split("， 、 。 ！ ？ ； ： ‘ ’ “ ” 【 】 ｛ ｝ （ ）")
    For i = LBound(BRR) To UBound(BRR)
        If z Then t = Replace(t, ARR(i), BRR(i)) Else t = Replace(t, BRR(i), ARR(i))
    Next i
    bd_q2b = t
End Function