Excel VBA的一个问题

ressul

需要得到公司transaction reference里的一段特定格式的string （DD+MMM+若干数字）e.g.12FEB555,3MAR9865 etc

这段string之前用空格分开（在reference首除外）,如下：

e.g. $$$$$$ 1FEB12345 $$$$$ 需要结果 1FEB12345
e.g. 6FEB56537 &&&&& 需要结果 6FEB56537

VBA怎么写？我记得可以用RegEx写，不过不知道具体该怎么写。

求方法/思路

jy00064164

用Split()得到每一段，再写一个function loop through寻找pattern

muyir

just filter all special characters, like $, &

sinkingmoon

下面这个函数会去掉所有的特殊符号。所以是个Generic Solution无需hard code


Public Function alpha_numeric(strInput As String) As String

    Dim re As Object
    Dim strPattern As String
    strPattern = "[^a-zA-Z0-9 -]"
   
    Set re = CreateObject("VBScript.RegExp")
    With re
            .Global = True
            .MultiLine = True
            .IgnoreCase = False
            .Pattern = strPattern
    End With

    If re.Test(strInput) Then
        alpha_numeric = re.Replace(strInput, Empty)
    Else
        alpha_numeric = strInput
    End If

End Function