Извлекайте английские буквы и цифры с помощью регулярных выражений

Question

У меня есть следующий код, который извлекает английские буквы из смешанных английских и арабских букв

Sub Test()
Dim a           As Variant
Dim i           As Long

With Cells(1).CurrentRegion.Resize(, 3)
    a = .Value
    With CreateObject("VBScript.RegExp")
        .Global = True
        For i = 1 To UBound(a, 1)
            .Pattern = "[^\w_ ]+"
            a(i, 3) = Trim$(.Replace(a(i, 1), ""))
        Next i
    End With
    .Value = a
End With
End Sub

Мне нужно изменить шаблон, чтобы иметь возможность извлекать цифры тоже ... так что мне нужноизвлечь английские буквы, а также цифры.

Answer 1

Добавить \d после \w.Это позволяет извлекать числа, если числа находятся между арабскими буквами.

Из комментария @Tiw / OP.