ReExtract a sequence of texts and letters from a text string

[Jonny99333]

Hi

I'm looking for a formula that will allow me to extract a specific sequence of numbers and letters within a long list of text strings which may appear anywhere within the text string - e.g.:

I need to find a text sequence LNNNN whereby L represents a letter and N represents a number

Heres a few examples of text strings whereby i would need a formula to extract this sequence. This text sequence could appear anywhere within the text string but will always appear after the character "-" but this character may appear numerous times within the text string:

Text Strings:

Cell A1: 564653-65341-EXPENSE-management35-G1234-4123
Cell A2: Account-R4321-SOFT4-cded-e23cxds
Cell A3: Company X example-46532testing-GRSFV-rwtgvwarsvw-123;juknbe23e-D4353-gsdbgv
Cell A4: Digital-645-A_22G534-Q4587

Results for required Formula from these text strings:

Result Cell A1: G1234
Result Cell A2: R4321
Result Cell A3: D4353
Result Cell A4: Q4587

Many thanks

 

[DanteAmor]

Try a UDF (User-Defined Function)

Function Extract_Sequence(s As String) As String
  Dim texts As Variant
  Dim r As String
  
  s = "-" & s
  With CreateObject("VBScript.RegExp")
    .Pattern = "\-[a-zA-Z]\d\d\d\d"
    .Global = True
    If .test(s) Then
      Set texts = .Execute(s)
      Extract_Sequence = Mid(texts(0), 2)
    End If
  End With
End Function

HOW TO INSTALL UDFs
If you are new to UDFs, they are easy to install and use. To install it, simply press ALT+F11 to go into the VB editor and, once there, click Insert/Module on its menu bar, then copy/paste the above code into the code window that just opened up. That's it.... you are done. You can now use Extract_Sequence just like it was a built-in Excel function. For example:

Dante Amor
	A	B
1
2	564653-654321-EXPS-MANAG35-b1234-4123	b1234
3	Account-R4321-SOFT4-cded-e23cxds	R4321
4	digital-645-a_22G534-A4587	A4587
5	X9999-data	X9999
Hoja10

Cell Formulas
Range	Formula
B2:B5	B2	=Extract_Sequence(A2)

 

[Jonny99333]

That works perfectly! thankyou DanteAmor