VBA - Remove text between given 2 characters in string

[sr1111]

I am trying to copy all strings between 2 characters "; " and " . " in respective rows as in the below example.

25.xlsm
	A	B	C	D
1	sl	Input	output1	output2
2	11	jones; smith. Lisa jones; festive discount. Lisa.	; smith; festive discount	jones. Lisa jones. Lisa.
3
4
5	2	jones; Light. Lisa jones; festive lucky discount 20p. Lisa. jones; Light. Lisa jones; festive lucky discount 20p. Lisa.	; Light; festive lucky discount 20p; Light; festive lucky discount 20p	jones. Lisa jones. Lisa. jones. Lisa jones. Lisa.
SheetA

I found the below vba from VBA - Remove text between given 2 characters in string
Sub RemoveDashToComma()
Columns("A:B").Replace ";*.", ",", xlPart
End Sub
I am looking for something very simple like this.

 

[rlv01]

You say you want to copy all strings between "; " and " . " and that conforms to what you show as output1. But it does not explain output2.

You could potentially do output1 with a UDF.

Function CustomExtract(ByVal CellTxt As String) As String
    Dim I As Long, S As String, SA As Variant
   
    SA = Split(Mid(CellTxt, InStr(CellTxt, ";") + 1, Len(CellTxt)), ";")
    For I = 0 To UBound(SA)
        S = S & Split(SA(I), ".")(0) & ";"
    Next I
    S = ";" & Left(S, Len(S) - 1)
    CustomExtract = S
End Function

Book1
	A	B	C
1	sl	Input	output1
2	11	jones; smith. Lisa jones; festive discount. Lisa.	; smith; festive discount
3
4
5	2	jones; Light. Lisa jones; festive lucky discount 20p. Lisa. jones; Light. Lisa jones; festive lucky discount 20p. Lisa.	; Light; festive lucky discount 20p; Light; festive lucky discount 20p
Sheet1

Cell Formulas
Range	Formula
C2,C5	C2	=CustomExtract(B2)

 

[sr1111]

Output2 is the data in B without the data in C.