入黎免費幫你砌excel表 / 教你formula (4)

Option Explicit

Sub test()
Dim regExp As Object
Dim str As String
Dim replaced_str As String
Dim replaced_str_array As Variant
Dim i As Long, j As Long
Dim result_array() As Long

Set regExp = CreateObject("vbscript.RegExp") 'late binding
str = "hfgh12hfbk34ggh4"
regExp.Pattern = "[^0-9]"
regExp.Global = True

If regExp.test(str) Then
    replaced_str = regExp.Replace(str, ",")
End If
replaced_str_array = Split(replaced_str, ",")

j = 0
For i = LBound(replaced_str_array) To UBound(replaced_str_array)
    If replaced_str_array(i) <> "" Then
        j = j + 1
    End If
Next i

ReDim result_array(0 To j - 1)
j = 0
For i = LBound(replaced_str_array) To UBound(replaced_str_array)
    If replaced_str_array(i) <> "" Then
        result_array(j) = CInt(replaced_str_array(i))
        j = j + 1
    End If
Next i
End Sub

na.omit(as.numeric(strsplit(gsub("[^0-9]", ",", "hfgh12hfbk34ggh4"), ",")[[1]]))